gistfile1.hs

-- getViewDataValue_u return the data which was stored in the controller with the name of "save-url" --
-- in this case we saved the url of the action which create a new post.
markup = <div>
            <h1>New Post </h1>
            <form  action=(getViewDataValue_u "save-url" :: View String)  method="post">
                      Title :
                      <input type="text" id="title" name="title"></input><br /><br />
                      <textarea name="content" id="content"  cols="40" rows="5">                               
                      </textarea>
                      <br />
                      <input type="submit" value="Save" />
            </form>

         </div>