Permalink
Browse files

Fix if/else syntax issue

  • Loading branch information...
1 parent 52ae129 commit 8766570a66a6bddd3554aadb7c1bf921f6cadeb2 @ozataman ozataman committed Sep 29, 2011
Showing with 3 additions and 4 deletions.
  1. +3 −4 src/Snap/Snaplet/Auth.hs
View
@@ -251,10 +251,9 @@ checkPasswordAndLogin u pw =
case userLockedOutUntil u of
Just x -> do
now <- liftIO getCurrentTime
- if now > x then
- auth u
- else
- return . Left $ LockedOut x
+ if now > x
+ then auth u
+ else return . Left $ LockedOut x
Nothing -> auth u
where
auth u =

0 comments on commit 8766570

Please sign in to comment.