diff options
| author | hallgren <hallgren@chalmers.se> | 2011-08-31 13:55:49 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2011-08-31 13:55:49 +0000 |
| commit | 314abe733ba1e9e7de12c9c28b7d6ffc889d128b (patch) | |
| tree | f56dda4b9f4643bba46ad551ebe193dac11c3a19 /src/compiler/GFI.hs | |
| parent | d180dadf08ddd961cf2a5db68f90223a7d76c232 (diff) | |
GF.Compile.Coding: cleaner code
Refine function codeTerm into codeTerm, codeLTerm and codeLTerms.
Diffstat (limited to 'src/compiler/GFI.hs')
| -rw-r--r-- | src/compiler/GFI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs index 6efd0f3e0..74edf95d7 100644 --- a/src/compiler/GFI.hs +++ b/src/compiler/GFI.hs @@ -176,7 +176,7 @@ execute1 opts gfenv0 s0 = case runP pExp (encodeUnicode utf8 s) of Left (_,msg) -> putStrLn msg - Right t -> case checkComputeTerm sgr (unLoc (codeTerm (decodeUnicode utf8 . BS.pack) (L (0,0) t))) of + Right t -> case checkComputeTerm sgr (codeTerm (decodeUnicode utf8 . BS.pack) t) of Ok x -> putStrLn $ showTerm sgr style q x Bad s -> putStrLn $ s continue gfenv |