GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 00:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

GF.Compile.Coding: cleaner code

Browse Source 
Refine function codeTerm into codeTerm, codeLTerm and codeLTerms.
This commit is contained in:
hallgren
2011-08-31 13:55:49 +00:00
parent 03b8c43bc8
commit 117fe7ad70
2 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GFI.hs
View File

@@ -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