GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
hallgren
2014-08-20 17:47:08 +00:00
parent 73310add9a
commit 21f429caf8
5 changed files with 30 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Compile/ReadFiles.hs
View File

@@ -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