fixing typo.

This commit is contained in:
Kazu Yamamoto 2014-09-22 11:20:11 +09:00
parent b96a8c6457
commit bc65c477d0

View File

@ -200,11 +200,11 @@ initializeFlagsWithCradle opt c
| cabal = withCabal | cabal = withCabal
| otherwise = withSandbox | otherwise = withSandbox
where where
mCradleFile = cradleCabalFile c mCabalFile = cradleCabalFile c
cabal = isJust mCradleFile cabal = isJust mCabalFile
ghcopts = ghcUserOptions opt ghcopts = ghcUserOptions opt
withCabal = do withCabal = do
pkgDesc <- parseCabalFile c $ fromJust mCradleFile pkgDesc <- parseCabalFile c $ fromJust mCabalFile
compOpts <- getCompilerOptions ghcopts c pkgDesc compOpts <- getCompilerOptions ghcopts c pkgDesc
initSession CabalPkg opt compOpts initSession CabalPkg opt compOpts
withSandbox = initSession SingleFile opt compOpts withSandbox = initSession SingleFile opt compOpts