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

minor fix.

Browse Source
This commit is contained in:
Kazu Yamamoto 2012-07-06 16:55:14 +09:00
parent 8fbdfac52b
commit eedca795e1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
CabalDev.hs
View File

@ -37,9 +37,10 @@ addPath orig_opts path = do
searchIt :: [FilePath] -> IO FilePath searchIt :: [FilePath] -> IO FilePath
searchIt [] = throwIO $ userError "Not found" searchIt [] = throwIO $ userError "Not found"
searchIt path = do searchIt path = do
a <- doesDirectoryExist (mpath path) let cabalDir = mpath path
if a then exist <- doesDirectoryExist cabalDir
findConf (mpath path) if exist then
findConf cabalDir
else else
searchIt $ init path searchIt $ init path
where where