From 21f429caf8c8cb4248457c16abaf0ad4f51c974a Mon Sep 17 00:00:00 2001 From: hallgren Date: Wed, 20 Aug 2014 17:47:08 +0000 Subject: Add lifted directory operations in GF.System.Directory to eliminate the need for liftIO in various places --- src/compiler/GF/Compile/ReadFiles.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/compiler/GF/Compile/ReadFiles.hs') diff --git a/src/compiler/GF/Compile/ReadFiles.hs b/src/compiler/GF/Compile/ReadFiles.hs index ecbd88b54..4e57e5ba4 100644 --- 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 -- cgit v1.2.3