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 2011-11-02 10:43:34 +09:00
parent fde88dedd1
commit 82e7c6862f
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
CabalDev.hs
View File

@ -1,3 +1,5 @@
{-# LANGUAGE DoAndIfThenElse #-}
module CabalDev (modifyOptions) where
{-
@ -17,9 +19,9 @@ modifyOptions :: Options -> IO Options
modifyOptions opts =
fmap (has_cdev opts) findCabalDev
where
has_cdev :: Options -> Maybe String -> Options
has_cdev op Nothing = op
has_cdev op (Just path) = addPath op path
has_cdev :: Options -> Maybe String -> Options
has_cdev op Nothing = op
has_cdev op (Just path) = addPath op path
findCabalDev :: IO (Maybe String)
findCabalDev =
@ -28,18 +30,16 @@ findCabalDev =
addPath :: Options -> String -> Options
addPath orig_opts path = do
let orig_paths = packageConfs orig_opts
orig_opts {
packageConfs = orig_paths ++ [path] }
orig_opts { packageConfs = orig_paths ++ [path] }
searchIt :: [FilePath] -> IO (Maybe FilePath)
searchIt [] = return Nothing
searchIt path = do
a <- doesDirectoryExist (mpath path)
case a of
False -> return Nothing
True -> do
b <- find always (fileName ~~? "packages*.conf") $ mpath path
maybe (searchIt $ init path) (return . Just) $ listToMaybe b
where
mpath a = (joinPath a) ++ "cabal-dev/"
if a then do
b <- find always (fileName ~~? "packages*.conf") $ mpath path
maybe (searchIt $ init path) (return . Just) $ listToMaybe b
else
return Nothing
where
mpath a = joinPath a ++ "cabal-dev/"