From 5d7bcac1e5c59c83c81ee51be416fbd907989507 Mon Sep 17 00:00:00 2001 From: bringert Date: Mon, 28 Nov 2005 21:45:58 +0000 Subject: Changed precedence of projection to be higher than application. --- src/Transfer/Syntax/Print.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Transfer/Syntax/Print.hs') 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 "}")]) -- cgit v1.2.3