hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hlint hack.

Browse Source
This commit is contained in:
Kazu Yamamoto 2012-02-08 16:11:36 +09:00
parent fb0deb1abd
commit 27c1c4fa3d
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
CabalDev.hs
View File

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

2
Check.hs
View File

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

2
Flag.hs
View File

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