From bb599029c96f9e28d5fa00def33a1ecf0baab8c3 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Thu, 22 Sep 2011 16:24:02 +0000
Subject: change the precedence for the left argument of ->

---
 src/compiler/GF/Grammar/Printer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/compiler/GF/Grammar/Printer.hs')

diff --git a/src/compiler/GF/Grammar/Printer.hs b/src/compiler/GF/Grammar/Printer.hs
index c4a449cd7..ef31af3bb 100644
--- a/src/compiler/GF/Grammar/Printer.hs
+++ b/src/compiler/GF/Grammar/Printer.hs
@@ -240,7 +240,7 @@ ppEnv e = hcat (map (\(x,t) -> braces (ppIdent x <> text ":=" <> ppValue Unquali
 str s = doubleQuotes (text s)
 
 ppDecl q (_,id,typ)
-  | id == identW = ppTerm q 4 typ
+  | id == identW = ppTerm q 3 typ
   | otherwise    = parens (ppIdent id <+> colon <+> ppTerm q 0 typ)
 
 ppDDecl q (_,id,typ)
-- 
cgit v1.2.3