diff options
| author | hallgren <hallgren@chalmers.se> | 2014-11-10 16:20:01 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-11-10 16:20:01 +0000 |
| commit | c707575bd7751ac3b03371edba478e37d3488448 (patch) | |
| tree | 4d16d9dabed27b5d977d3d4d84a4bb317dff4a4a /src/compiler/GF/Compiler.hs | |
| parent | 33571ba44f2a42502722a3b025b448efe1f0ab88 (diff) | |
Documentation improvements and cleanup relating to the IOE monad
Renamed appIOE to tryIOE (it is analogous to 'try' in the standard libraries).
Removed unused IOE operations & documented the remaining ones.
Removed/simplified superfluous uses of IOE operations.
Diffstat (limited to 'src/compiler/GF/Compiler.hs')
| -rw-r--r-- | src/compiler/GF/Compiler.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Compiler.hs b/src/compiler/GF/Compiler.hs index d92ed387c..57855b1b9 100644 --- a/src/compiler/GF/Compiler.hs +++ b/src/compiler/GF/Compiler.hs @@ -28,7 +28,7 @@ import Control.Monad(unless,forM_) -- and, depending on the options, a @.pgf@ file. (@gf -batch@, @gf -make@) mainGFC :: Options -> [FilePath] -> IO () mainGFC opts fs = do - r <- appIOE (case () of + r <- tryIOE (case () of _ | null fs -> fail $ "No input files." _ | all (extensionIs ".cf") fs -> compileCFFiles opts fs _ | all (\f -> extensionIs ".gf" f || extensionIs ".gfo" f) fs -> compileSourceFiles opts fs |