msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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 5de05d36da
commit 71ca9c8df1
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) prs ts = " " ++ unwords (map ps ts)
ps t@(CFTree (_,(_,[]))) = prCFTree t ps t@(CFTree (_,(_,[]))) = prCFTree t
ps t = prParenth (prCFTree t) ps t = prParenth (prCFTree t)
{-# NOINLINE prCFTree #-}
-- Workaround ghc 6.8.2 bug
prCFRule :: CFRule -> String prCFRule :: CFRule -> String
prCFRule (fun,(cat,its)) = prCFRule (fun,(cat,its)) =