GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

Workaround a ghc 6.8.2 bug

Browse Source
This commit is contained in:
bernardy
2007-12-17 10:15:20 +00:00
parent 83159c434b
commit 701c57f25a
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/CF/PPrCF.hs
View File

@@ -34,6 +34,9 @@ prCFTree (CFTree (fun, (_,trees))) = prCFFun fun ++ prs trees where
prs ts = " " ++ unwords (map ps ts)
ps t@(CFTree (_,(_,[]))) = prCFTree t
ps t = prParenth (prCFTree t)
{-# NOINLINE prCFTree #-}
-- Workaround ghc 6.8.2 bug
prCFRule :: CFRule -> String
prCFRule (fun,(cat,its)) =