refactoring.
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user