diff options
| author | krasimir <krasimir@chalmers.se> | 2010-02-03 17:33:55 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-02-03 17:33:55 +0000 |
| commit | b90e56a94e335d42dd5abe653555cc0854803037 (patch) | |
| tree | e80c7c8a0dadbcf1eeca1426e6eb5e089935a280 /src/compiler/GFI.hs | |
| parent | 49e620b535aeec77c95bfc6db0bf0a4a725903e4 (diff) | |
fix the tabular printing when there is a V constructor
Diffstat (limited to 'src/compiler/GFI.hs')
| -rw-r--r-- | src/compiler/GFI.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |