diff options
| author | aarne <unknown> | 2005-05-25 18:59:59 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-05-25 18:59:59 +0000 |
| commit | 908add0d17d88965d12861beb3759af4dcdda949 (patch) | |
| tree | 9c564493b49c04e205054fba145e2be687426d52 /src/GF/Source/PrintGF.hs | |
| parent | ef49f67b1c609cb98894c3aa9c986e0aaced55ba (diff) | |
printing %
Diffstat (limited to 'src/GF/Source/PrintGF.hs')
| -rw-r--r-- | src/GF/Source/PrintGF.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Source/PrintGF.hs b/src/GF/Source/PrintGF.hs index d84fce863..51f120c2a 100644 --- a/src/GF/Source/PrintGF.hs +++ b/src/GF/Source/PrintGF.hs @@ -27,11 +27,13 @@ render d = rend 0 (map ($ "") $ d []) "" where "[" :ts -> showChar '[' . rend i ts "(" :ts -> showChar '(' . rend i ts + "%" :ts -> showChar '%' . rend i ts "{" :ts -> showChar '{' . new (i+1) . rend (i+1) ts "}" : ";":ts -> new (i-1) . space "}" . showChar ';' . new (i-1) . rend (i-1) ts "}" :ts -> new (i-1) . showChar '}' . new (i-1) . rend (i-1) ts ";" :ts -> showChar ';' . new i . rend i ts t : "," :ts -> showString t . space "," . rend i ts + t : "%" :ts -> showString t . showChar '%' . rend i ts t : ")" :ts -> showString t . showChar ')' . rend i ts t : "]" :ts -> showString t . showChar ']' . rend i ts t :ts -> space t . rend i ts |