cosmetic change.

This commit is contained in:
Kazu Yamamoto 2013-03-04 10:40:06 +09:00
parent d76b17bc4b
commit 2e440f9214

View File

@ -26,12 +26,14 @@ findCradle (Just sbox) = do
, cradleCabalDir = Nothing
, cradleCabalFile = Nothing
, cradlePackageConfOpts = Just confOpts
, cradleGHCVersion = strver
}
Just (cdir,cfile) -> Cradle {
cradleCurrentDir = wdir
, cradleCabalDir = Just cdir
, cradleCabalFile = Just cfile
, cradlePackageConfOpts = Just confOpts
, cradleGHCVersion = strver
}
findCradle Nothing = do
(strver, ver) <- ghcVersion
@ -43,6 +45,7 @@ findCradle Nothing = do
, cradleCabalDir = Nothing
, cradleCabalFile = Nothing
, cradlePackageConfOpts = Nothing
, cradleGHCVersion = strver
}
Just (cdir,cfile) -> do
let sbox = cdir </> "cabal-dev/"
@ -54,6 +57,7 @@ findCradle Nothing = do
, cradleCabalDir = Just cdir
, cradleCabalFile = Just cfile
, cradlePackageConfOpts = if exist then Just confOpts else Nothing
, cradleGHCVersion = strver
}
cabalDir :: FilePath -> IO (Maybe (FilePath,FilePath))