Created rootRedirect function.

mightybyte · Apr 7, 2009 · 6f62d9c · 6f62d9c
1 parent 8c3e5a8
commit 6f62d9c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/demo/Blog-NoAuth/Main.hs b/demo/Blog-NoAuth/Main.hs
@@ -40,6 +40,8 @@ getPosts = asks postDB
 
 $(mkMethods ''BlogState ['addPost, 'getPosts])
 
+rootRedirect = seeOther "/" (toResponse "")
+
 impl = msum
   [ dir "new" $
       msum [methodSP GET $ fileServe ["new_post.html"] "."
@@ -51,7 +53,7 @@ addPostHandler = do
   (Just title) <- getDataFn $ look "title"
   (Just body) <- getDataFn $ look "body"
   update $ AddPost (Post title body)
-  seeOther "/" (toResponse "")
+  rootRedirect
 
 viewPostsHandler = do
   posts <- query $ GetPosts