| changeset 6275 | f1b4f37dba22 |
| parent 6274 | a3e1eb794249 |
| child 6277 | 627b5752733a |
| 6274:a3e1eb794249 | 6275:f1b4f37dba22 |
|---|---|
59 | PrefixOp String Expression |
59 | PrefixOp String Expression |
60 | BinOp String Expression Expression |
60 | BinOp String Expression Expression |
61 -} |
61 -} |
62 expr2C _ = empty |
62 expr2C _ = empty |
63 |
63 |
64 op2C = text |
64 op2C "or" = text "|" |
65 op2C "and" = text "&" |
|
66 op2C "div" = text "/" |
|
67 op2C "mod" = text "%" |
|
68 op2C "<>" = text "!=" |
|
69 op2C a = text a |
|
65 |
70 |
66 maybeVoid "" = "void" |
71 maybeVoid "" = "void" |
67 maybeVoid a = a |
72 maybeVoid a = a |