GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-23 01:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

change the precedence for the left argument of ->

Browse Source
This commit is contained in:
kr.angelov
2011-09-22 16:24:02 +00:00
parent 6db0c74c2f
commit bb599029c9
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Grammar/Parser.y
View File

@@ -554,7 +554,7 @@ ListBind
Decl :: { [Hypo] } Decl :: { [Hypo] }
Decl Decl
: '(' ListBind ':' Exp ')' { [(b,x,$4) | (b,x) <- $2] } : '(' ListBind ':' Exp ')' { [(b,x,$4) | (b,x) <- $2] }
| Exp4 { [mkHypo $1] } | Exp3 { [mkHypo $1] }
ListTupleComp :: { [Term] } ListTupleComp :: { [Term] }
ListTupleComp ListTupleComp

2
src/compiler/GF/Grammar/Printer.hs
View File

@@ -240,7 +240,7 @@ ppEnv e = hcat (map (\(x,t) -> braces (ppIdent x <> text ":=" <> ppValue Unquali
str s = doubleQuotes (text s) str s = doubleQuotes (text s)
ppDecl q (_,id,typ) 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) | otherwise = parens (ppIdent id <+> colon <+> ppTerm q 0 typ)
ppDDecl q (_,id,typ) ppDDecl q (_,id,typ)