Add lifted directory operations in GF.System.Directory to eliminate the need for liftIO in various places

2014-08-20 17:47:08 +00:00
parent ff960a27b8
commit e1644ef319
5 changed files with 30 additions and 18 deletions
--- a/src/compiler/GF/Compile/ReadFiles.hs
+++ b/src/compiler/GF/Compile/ReadFiles.hs
@@ -139,7 +139,7 @@ findFile gfoDir ps name =
        noGFO = raise (render ("File" <+> gfFile name <+> "does not exist." $$
                               "searched in:" <+> vcat ps))

-modtime path = liftIO $ getModificationTime path
+modtime path = getModificationTime path

 gfImports opts file = importsOfModule `fmap` parseModHeader opts file