refactoring.
This commit is contained in:
parent
06cac206cd
commit
2cced9b4bf
@ -44,8 +44,7 @@ searchIt path = do
|
|||||||
else
|
else
|
||||||
searchIt $ init path
|
searchIt $ init path
|
||||||
where
|
where
|
||||||
cabalDir = mpath path
|
cabalDir = joinPath path </> "cabal-dev/"
|
||||||
mpath a = joinPath a </> "cabal-dev/"
|
|
||||||
|
|
||||||
findConf :: FilePath -> IO FilePath
|
findConf :: FilePath -> IO FilePath
|
||||||
findConf path = do
|
findConf path = do
|
||||||
|
Loading…
Reference in New Issue
Block a user