hlint hack.

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

View File

@@ -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)