diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-11-28 21:45:58 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-11-28 21:45:58 +0000 |
| commit | 5d7bcac1e5c59c83c81ee51be416fbd907989507 (patch) | |
| tree | 7a1cb976ca9433f6f13d6d1edc003cf89955a963 /src/Transfer/Syntax/Print.hs | |
| parent | 02c23401a7a3e54d48084fc2796a485de36383f1 (diff) | |
Changed precedence of projection to be higher than application.
Diffstat (limited to 'src/Transfer/Syntax/Print.hs')
| -rw-r--r-- | src/Transfer/Syntax/Print.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Transfer/Syntax/Print.hs b/src/Transfer/Syntax/Print.hs index e14684ea7..ceaffa218 100644 --- a/src/Transfer/Syntax/Print.hs +++ b/src/Transfer/Syntax/Print.hs @@ -115,9 +115,9 @@ instance Print (Tree c) where EMul exp0 exp1 -> prPrec _i 7 (concatD [prt 7 exp0 , doc (showString "*") , prt 8 exp1]) EDiv exp0 exp1 -> prPrec _i 7 (concatD [prt 7 exp0 , doc (showString "/") , prt 8 exp1]) EMod exp0 exp1 -> prPrec _i 7 (concatD [prt 7 exp0 , doc (showString "%") , prt 8 exp1]) - EProj exp i -> prPrec _i 8 (concatD [prt 8 exp , doc (showString ".") , prt 0 i]) - ENeg exp -> prPrec _i 9 (concatD [doc (showString "-") , prt 9 exp]) - EApp exp0 exp1 -> prPrec _i 10 (concatD [prt 10 exp0 , prt 11 exp1]) + ENeg exp -> prPrec _i 8 (concatD [doc (showString "-") , prt 8 exp]) + EApp exp0 exp1 -> prPrec _i 9 (concatD [prt 9 exp0 , prt 10 exp1]) + EProj exp i -> prPrec _i 10 (concatD [prt 10 exp , doc (showString ".") , prt 0 i]) EEmptyRec -> prPrec _i 11 (concatD [doc (showString "{") , doc (showString "}")]) ERecType fieldtypes -> prPrec _i 11 (concatD [doc (showString "{") , prt 0 fieldtypes , doc (showString "}")]) ERec fieldvalues -> prPrec _i 11 (concatD [doc (showString "{") , prt 0 fieldvalues , doc (showString "}")]) |