diff options
| author | krasimir <krasimir@chalmers.se> | 2008-09-10 08:55:16 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-09-10 08:55:16 +0000 |
| commit | c4c1f6d076f8301c6b417badd037dfefbf6d414d (patch) | |
| tree | 6221ae0275a2d30c892fa710c8d2f0a9959c4112 /src/GF/Compile/ReadFiles.hs | |
| parent | 5210d1745c519502bab2df266424331ad1f51b5c (diff) | |
print the search path when we can't find a module
Diffstat (limited to 'src/GF/Compile/ReadFiles.hs')
| -rw-r--r-- | src/GF/Compile/ReadFiles.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/Compile/ReadFiles.hs b/src/GF/Compile/ReadFiles.hs index cd2faec15..956114c1c 100644 --- a/src/GF/Compile/ReadFiles.hs +++ b/src/GF/Compile/ReadFiles.hs @@ -38,6 +38,7 @@ import qualified Data.Map as Map import System.Time import System.Directory import System.FilePath +import Text.PrettyPrint type ModName = String type ModEnv = Map.Map ModName (ClockTime,[ModName]) @@ -92,7 +93,8 @@ getAllFiles opts ps env file = do case mb_gfoFile of Just gfoFile -> do gfoTime <- ioeIO $ getModificationTime gfoFile return (gfoFile, Nothing, Just gfoTime) - Nothing -> ioeErr $ Bad ("File " ++ gfFile name ++ " does not exist.") + Nothing -> ioeErr $ Bad (render (text "File" <+> text (gfFile name) <+> text "does not exist." $$ + text "searched in:" <+> vcat (map text ps))) let mb_envmod = Map.lookup name env |