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

cosmetic changes.

Browse Source
This commit is contained in:
Kazu Yamamoto 2013-04-10 14:46:58 +09:00
parent 8ae0a55aff
commit 0c84d9464a
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Cradle.hs
View File

@ -16,15 +16,15 @@ findCradle (Just sbox) strver = do
cfiles <- cabalDir wdir cfiles <- cabalDir wdir
return $ case cfiles of return $ case cfiles of
Nothing -> Cradle { Nothing -> Cradle {
cradleCurrentDir = wdir cradleCurrentDir = wdir
, cradleCabalDir = Nothing , cradleCabalDir = Nothing
, cradleCabalFile = Nothing , cradleCabalFile = Nothing
, cradlePackageConf = Just pkgConf , cradlePackageConf = Just pkgConf
} }
Just (cdir,cfile) -> Cradle { Just (cdir,cfile) -> Cradle {
cradleCurrentDir = wdir cradleCurrentDir = wdir
, cradleCabalDir = Just cdir , cradleCabalDir = Just cdir
, cradleCabalFile = Just cfile , cradleCabalFile = Just cfile
, cradlePackageConf = Just pkgConf , cradlePackageConf = Just pkgConf
} }
findCradle Nothing strver = do findCradle Nothing strver = do