diff options
| author | aarne <aarne@cs.chalmers.se> | 2005-12-02 13:13:14 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2005-12-02 13:13:14 +0000 |
| commit | dea5158cbf1c11d45f2ed91d9975fbc77245e652 (patch) | |
| tree | 751ef7bcaccf58c43354d5b1767d3b3d3d1ac34d /src/GF/Canon/PrintGFC.hs | |
| parent | 50ddb387f4495beb8bd8da2b9726a087a489df68 (diff) | |
floats in GF and GFC (parsing user input still doesn't work)
Diffstat (limited to 'src/GF/Canon/PrintGFC.hs')
| -rw-r--r-- | src/GF/Canon/PrintGFC.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Canon/PrintGFC.hs b/src/GF/Canon/PrintGFC.hs index 11b4729c0..437f3a1e9 100644 --- a/src/GF/Canon/PrintGFC.hs +++ b/src/GF/Canon/PrintGFC.hs @@ -231,6 +231,7 @@ instance Print APatt where APV id -> prPrec i 0 (concatD [prt 0 id]) APS str -> prPrec i 0 (concatD [prt 0 str]) API n -> prPrec i 0 (concatD [prt 0 n]) + APF n -> prPrec i 0 (concatD [prt 0 n]) APW -> prPrec i 0 (concatD [doc (showString "_")]) prtList es = case es of @@ -292,6 +293,7 @@ instance Print Term where C term0 term -> prPrec i 0 (concatD [prt 0 term0 , doc (showString "++") , prt 1 term]) FV terms -> prPrec i 1 (concatD [docs (showString "variants") , doc (showString "{") , prt 2 terms , doc (showString "}")]) EInt n -> prPrec i 2 (concatD [prt 0 n]) + EFloat n -> prPrec i 2 (concatD [prt 0 n]) K tokn -> prPrec i 2 (concatD [prt 0 tokn]) E -> prPrec i 2 (concatD [doc (showString "[") , doc (showString "]")]) @@ -356,6 +358,7 @@ instance Print Patt where PW -> prPrec i 0 (concatD [docs (showString "_")]) PR pattassigns -> prPrec i 0 (concatD [doc (showString "{") , prt 0 pattassigns , doc (showString "}")]) PI n -> prPrec i 0 (concatD [prt 0 n]) + PF n -> prPrec i 0 (concatD [prt 0 n]) prtList es = case es of [] -> (concatD []) |