diff options
| author | hallgren <hallgren@chalmers.se> | 2014-07-28 11:58:00 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-07-28 11:58:00 +0000 |
| commit | 7a91afc02a0a245bf9fea248e61421a75c22137d (patch) | |
| tree | e8c0466894f64a5a6cb98ef4d32dedcb9eeca879 /src/compiler/GF/Compile/ReadFiles.hs | |
| parent | 59172ce9c5baf593e3110036a14c910da80878f7 (diff) | |
Convert from Text.PrettyPrint to GF.Text.Pretty
All compiler modules now use GF.Text.Pretty instead of Text.PrettyPrint
Diffstat (limited to 'src/compiler/GF/Compile/ReadFiles.hs')
| -rw-r--r-- | src/compiler/GF/Compile/ReadFiles.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/compiler/GF/Compile/ReadFiles.hs b/src/compiler/GF/Compile/ReadFiles.hs index 02bc4452d..9bc36f0b5 100644 --- a/src/compiler/GF/Compile/ReadFiles.hs +++ b/src/compiler/GF/Compile/ReadFiles.hs @@ -46,7 +46,7 @@ import qualified Data.Map as Map import Data.Time(UTCTime) import GF.System.Directory import System.FilePath -import Text.PrettyPrint +import GF.Text.Pretty type ModName = String type ModEnv = Map.Map ModName (UTCTime,[ModName]) @@ -105,8 +105,8 @@ getAllFiles opts ps env file = do case mb_gfoFile of Just gfoFile -> do gfoTime <- modtime gfoFile return (gfoFile, Nothing, Just gfoTime) - Nothing -> raise (render (text "File" <+> text (gfFile name) <+> text "does not exist." $$ - text "searched in:" <+> vcat (map text ps))) + Nothing -> raise (render ("File" <+> gfFile name <+> "does not exist." $$ + "searched in:" <+> vcat ps)) let mb_envmod = Map.lookup name env |