diff options
Diffstat (limited to 'src/compiler/GFI.hs')
| -rw-r--r-- | src/compiler/GFI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs index 4d7e65870..44f978cb3 100644 --- a/src/compiler/GFI.hs +++ b/src/compiler/GFI.hs @@ -42,7 +42,7 @@ import qualified Text.ParserCombinators.ReadP as RP import System.Directory({-getCurrentDirectory,-}getAppUserDataDirectory) import Control.Exception(SomeException,fromException,evaluate,try) import Control.Monad -import Text.PrettyPrint (render) +import GF.Text.Pretty (render) import qualified GF.System.Signal as IO(runInterruptibly) #ifdef SERVER_MODE import GFServer(server) @@ -247,7 +247,7 @@ execute1 opts gfenv0 s0 = (\ m@(i,_) -> let file = (showIdent i ++ ".gfh") in restricted $ writeFile file (render (ppModule Qualified m)) >> P.putStrLn ("wrote " ++ file)) (modules mygr) - _ -> putStrLn $ render $ ppGrammar mygr + _ -> putStrLn $ render mygr continue gfenv dependency_graph ws = |