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

cosmetic change.

Browse Source
This commit is contained in:
Kazu Yamamoto 2012-04-10 09:43:02 +09:00
parent 2ce8b64284
commit 2c31fcd526
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
CabalDev.hs
View File

@ -17,15 +17,13 @@ import Types
modifyOptions :: Options -> IO Options modifyOptions :: Options -> IO Options
modifyOptions opts = found ||> notFound modifyOptions opts = found ||> notFound
where where
found = do found = addPath opts <$> findCabalDev (sandbox opts)
path <- findCabalDev (sandbox opts)
return $ addPath opts path
notFound = return opts notFound = return opts
findCabalDev :: Maybe String -> IO FilePath findCabalDev :: Maybe String -> IO FilePath
findCabalDev (Just path) = do findCabalDev (Just path) = do
a <- doesDirectoryExist path exist <- doesDirectoryExist path
if a then if exist then
findConf path findConf path
else else
findCabalDev Nothing findCabalDev Nothing