From c5206173e6445507f8468457ac5534065e8b9909 Mon Sep 17 00:00:00 2001
From: "\"Vincent Ambo ext:(%22)" <tazjin@gmail.com>
Date: Sun, 28 Apr 2013 14:44:14 +0200
Subject: ran hlint

---
 src/BlogDB.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/BlogDB.hs')

diff --git a/src/BlogDB.hs b/src/BlogDB.hs
index b2551ecc3d99..c054d7f17dd2 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 ()
-- 
cgit 1.4.1