From c707575bd7751ac3b03371edba478e37d3488448 Mon Sep 17 00:00:00 2001 From: hallgren Date: Mon, 10 Nov 2014 16:20:01 +0000 Subject: 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. --- src/compiler/GF/Compiler.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/compiler/GF/Compiler.hs') 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 -- cgit v1.2.3