hlint hack.

CabalDev.hs

@@ -34,7 +34,7 @@ searchIt :: [FilePath] -> IO (Maybe FilePath)
 searchIt [] = return Nothing
 searchIt path = do
     a <- doesDirectoryExist (mpath path)
-    if a then do
+    if a then
         findConf (mpath path)
       else
         searchIt $ init path
@@ -44,4 +44,4 @@ searchIt path = do
 findConf :: FilePath -> IO (Maybe FilePath)
 findConf path = do
     f <- find (=~ "packages.*\\.conf") <$> getDirectoryContents path
-    return $ ((path </>) <$> f)
+    return ((path </>) <$> f)

Check.hs

@@ -12,7 +12,7 @@ import Types
 ----------------------------------------------------------------
 
 checkSyntax :: Options -> String -> IO String
-checkSyntax opt file = do
+checkSyntax opt file =
   unlines <$> check opt file
 
 ----------------------------------------------------------------

Flag.hs

@@ -6,7 +6,7 @@ import DynFlags
 import Types
 
 listFlags :: Options -> IO String
-listFlags opt = return $ convert opt $
+listFlags opt = return $ convert opt
    [ "-f" ++ prefix ++ option
 #if __GLASGOW_HASKELL__ == 702
    | (option,_,_,_) <- fFlags