diff options
| author | hallgren <hallgren@chalmers.se> | 2014-08-20 17:47:08 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-08-20 17:47:08 +0000 |
| commit | 21f429caf8c8cb4248457c16abaf0ad4f51c974a (patch) | |
| tree | 558898049275da72a5b2c37101368a68fa5e60de /src/compiler/GF/CompileOne.hs | |
| parent | 73310add9a549b58381f475eab5324a17a6b83dd (diff) | |
Add lifted directory operations in GF.System.Directory to eliminate the need for liftIO in various places
Diffstat (limited to 'src/compiler/GF/CompileOne.hs')
| -rw-r--r-- | src/compiler/GF/CompileOne.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/compiler/GF/CompileOne.hs b/src/compiler/GF/CompileOne.hs index 31a0f81df..c99430079 100644 --- a/src/compiler/GF/CompileOne.hs +++ b/src/compiler/GF/CompileOne.hs @@ -37,7 +37,7 @@ compileOne :: Options -> SourceGrammar -> FullPath -> IOE OneOutput compileOne opts srcgr file = if isGFO file then reuseGFO opts srcgr file - else do b1 <- liftIO $ doesFileExist file + else do b1 <- doesFileExist file if b1 then useTheSource else reuseGFO opts srcgr (gf2gfo opts file) where @@ -47,7 +47,7 @@ compileOne opts srcgr file = ("- compiling" +++ file ++ "... ") (getSourceModule opts file) idump opts Source sm - cwd <- liftIO getCurrentDirectory + cwd <- getCurrentDirectory compileSourceModule opts cwd (Just file) srcgr sm putpOpt v m act @@ -65,7 +65,7 @@ reuseGFO opts srcgr file = idump opts Source sm0 let sm1 = unsubexpModule sm0 - cwd <- liftIO getCurrentDirectory + cwd <- getCurrentDirectory (sm,warnings) <- -- putPointE Normal opts "creating indirections" $ runCheck $ extendModule cwd srcgr sm1 warnOut opts warnings |