diff options
| author | "Vincent Ambo ext:(%22) <tazjin@gmail.com> | 2013-04-28T12·44+0200 |
|---|---|---|
| committer | "Vincent Ambo ext:(%22) <tazjin@gmail.com> | 2013-04-28T12·44+0200 |
| commit | c5206173e6445507f8468457ac5534065e8b9909 (patch) | |
| tree | 6bb9cc9f00b04c0037eb984208b108804bdfdb93 /src/BlogDB.hs | |
| parent | 9719b5a62de0795a5cb62778de06c3aa7f206e95 (diff) | |
ran hlint
Diffstat (limited to 'src/BlogDB.hs')
| -rw-r--r-- | src/BlogDB.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/BlogDB.hs b/src/BlogDB.hs index b2551ecc3d..c054d7f17d 100644 --- a/src/BlogDB.hs +++ b/src/BlogDB.hs @@ -97,7 +97,7 @@ instance Indexable Entry where , ixFun $ \e -> [ MText $ mtext e] , ixFun $ \e -> [ EDate $ edate e] , ixFun $ \e -> map Tag (tags e) - , ixFun $ comments + , ixFun comments ] data User = User { @@ -209,13 +209,13 @@ getUser uN = do b@Blog{..} <- ask return $ getOne $ blogUsers @= uN -checkUser :: Username -> String -> Query Blog (Bool) +checkUser :: Username -> String -> Query Blog Bool checkUser uN pw = do b@Blog{..} <- ask let user = getOne $ blogUsers @= uN case user of Nothing -> return False - (Just u) -> return $ (password u) == hashString pw + (Just u) -> return $ password u == hashString pw -- various functions hashString :: String -> ByteString @@ -251,7 +251,7 @@ flushSessions :: IO () flushSessions = do tbDir <- getEnv "TAZBLOG" acid <- openLocalStateFrom (tbDir ++ "/BlogState") initialBlogState - update' acid (ClearSessions) + update' acid ClearSessions closeAcidState acid archiveState :: IO () |