diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/CF/PPrCF.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/CF/PPrCF.hs b/src/GF/CF/PPrCF.hs index d40a93c57..1c2203e94 100644 --- a/src/GF/CF/PPrCF.hs +++ b/src/GF/CF/PPrCF.hs @@ -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)) = |