Fix a couple of hlint warnings

alip · Jun 11, 2010 · ccd3f5a · ccd3f5a
1 parent e5108cd
commit ccd3f5a
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git a/src/Qoropa/Buffer/Folder.hs b/src/Qoropa/Buffer/Folder.hs
@@ -256,7 +256,7 @@ load _ _ _ [] = return ()
 load (ref, lock) mvar db ((name, term):xs) = do
     Lock.with lock $ do
         buf <- readIORef ref
-        msg <- (themeFormatLoading (bufferTheme buf)) (name, term)
+        msg <- themeFormatLoading (bufferTheme buf) (name, term)
         writeIORef ref buf { bufferStatusMessage = (bufferStatusMessage buf) { sMessage = msg }
                            }
         putMVar mvar Redraw
@@ -270,7 +270,7 @@ load (ref, lock) mvar db ((name, term):xs) = do
             loadOne ref (name, term) count
 
             buf <- readIORef ref
-            msg <- (themeFormatLoadingDone (bufferTheme buf)) (name, term)
+            msg <- themeFormatLoadingDone (bufferTheme buf) (name, term)
             writeIORef ref buf { bufferStatusMessage = (bufferStatusMessage buf) { sMessage = msg }
                                }
 

diff --git a/src/Qoropa/Buffer/Search.hs b/src/Qoropa/Buffer/Search.hs
@@ -298,7 +298,7 @@ new :: (IORef Search, Lock) -> MVar UIEvent -> FilePath -> String -> IO ()
 new (ref, lock) mvar fp term = do
     Lock.with lock $ do
         buf <- readIORef ref
-        msg <- (themeFormatLoading (bufferTheme buf)) term
+        msg <- themeFormatLoading (bufferTheme buf) term
         writeIORef ref buf { bufferStatusBar = (bufferStatusBar buf) { sBarTerm = term }
                            , bufferStatusMessage = (bufferStatusMessage buf) { sMessage = msg }
                            }
@@ -312,7 +312,7 @@ new (ref, lock) mvar fp term = do
 
     Lock.with lock $ do
         buf <- readIORef ref
-        msg <- (themeFormatLoadingDone (bufferTheme buf)) term
+        msg <- themeFormatLoadingDone (bufferTheme buf) term
         writeIORef ref buf { bufferStatusMessage = (bufferStatusMessage buf) { sMessage = msg }
                            }
         putMVar mvar Redraw

diff --git a/src/Qoropa/Config.hs b/src/Qoropa/Config.hs
@@ -112,7 +112,7 @@ folderDrawLine attr selected line =
             else snd $ Folder.attrCount attr
         myNameFormat  = printf "%-20s" (Folder.folderName line)
         myCountFormat = printf "%7d" (Folder.folderCount line)
-        myTermFormat  = (Folder.folderTerm line)
+        myTermFormat  = Folder.folderTerm line
 
 folderDrawStatusBar :: Folder.Attributes -> Folder.StatusBar -> Image
 folderDrawStatusBar attr bar =

diff --git a/src/Qoropa/UI.hs b/src/Qoropa/UI.hs
@@ -223,7 +223,7 @@ exit ui = do
 mainLoop :: QoropaConfig -> UI -> IO ()
 mainLoop conf ui = do
     path <- expandTilde (databasePath conf)
-    putMVar (uiEvent ui) $ NewFolder
+    putMVar (uiEvent ui) NewFolder
     eventLoop path
     where
         eventLoop :: FilePath -> IO ()