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

Putting def definitions in place.

Browse Source
This commit is contained in:
aarne
2003-10-01 12:46:44 +00:00
parent 8ed7749eb6
commit c985dab565
20 changed files with 152 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Canon/PrintGFC.hs
View File

@@ -163,6 +163,7 @@ instance Print Exp where
EAtom atom -> prPrec i 2 (concat [prt 0 atom])
EAbs id exp -> prPrec i 0 (concat [["\\"] , prt 0 id , ["->"] , prt 0 exp])
EEq equations -> prPrec i 0 (concat [["{"] , prt 0 equations , ["}"]])
EData -> prPrec i 2 (concat [["data"]])
instance Print Sort where
prt i e = case e of
@@ -185,7 +186,7 @@ instance Print APatt where
APW -> prPrec i 0 (concat [["_"]])
prtList es = case es of
[x] -> (concat [prt 0 x])
[] -> (concat [])
x:xs -> (concat [prt 0 x , prt 0 xs])
instance Print Atom where