Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

- Simplify.

  • Loading branch information...
commit 7f1da9e04c851d94173da978165bc8c242a3db4f 1 parent fefb336
@lulf authored
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
Please sign in to comment.
Something went wrong with that request. Please try again.