From b90e56a94e335d42dd5abe653555cc0854803037 Mon Sep 17 00:00:00 2001 From: krasimir Date: Wed, 3 Feb 2010 17:33:55 +0000 Subject: fix the tabular printing when there is a V constructor --- src/compiler/GFI.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/compiler/GFI.hs') diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs index 2ea22efa6..4266afa45 100644 --- a/src/compiler/GFI.hs +++ b/src/compiler/GFI.hs @@ -9,6 +9,7 @@ import GF.Command.Parse import GF.Data.ErrM import GF.Grammar hiding (Ident) import GF.Grammar.Parser (runP, pExp) +import GF.Grammar.ShowTerm import GF.Compile.Rename import GF.Compile.Concrete.Compute (computeConcrete) import GF.Compile.Concrete.TypeCheck (inferLType) @@ -122,7 +123,7 @@ loop opts gfenv0 = do case runP pExp (BS.pack s) of Left (_,msg) -> putStrLn msg Right t -> case checkComputeTerm sgr (codeTerm (decode gfenv) t) of - Ok x -> putStrLn $ enc (showTerm style q x) + Ok x -> putStrLn $ enc (showTerm sgr style q x) Bad s -> putStrLn $ enc s loopNewCPU gfenv "dg":ws -> do -- cgit v1.2.3