Browse files

- Simplify.

  • Loading branch information...
1 parent fefb336 commit 7f1da9e04c851d94173da978165bc8c242a3db4f @lulf committed Apr 7, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Main.hs
View
2 src/Main.hs
@@ -111,7 +111,7 @@ redirectTo :: MonadSnap m => Maybe ByteString -> m b
redirectTo dest = do
case dest of
Nothing -> redirect "/"
- Just _ -> redirect (fromJust dest)
+ Just uri -> redirect uri
logoutHandler :: Handler App App ()
logoutHandler = do

0 comments on commit 7f1da9e

Please sign in to comment.