Permalink
Browse files

Fix bug in checkPasswordAndLogin

  • Loading branch information...
1 parent 6ac2670 commit b02bb124cf4e44177b1c3aeedc6f97642d73126a @ozataman ozataman committed Sep 15, 2011
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/Snap/Snaplet/Auth.hs
View
@@ -243,9 +243,10 @@ checkPasswordAndLogin u pw remember =
Just x -> do
now <- liftIO getCurrentTime
if now > x then
- auth u
+ auth u
else
- return . Left $ LockedOut x
+ return . Left $ LockedOut x
+ Nothing -> auth u
where
auth u =
case authenticatePassword u pw of

0 comments on commit b02bb12

Please sign in to comment.