From 701c57f25a28fcd80cffcddfae7005535a1f4c48 Mon Sep 17 00:00:00 2001
From: bernardy <bernardy@chalmers.se>
Date: Mon, 17 Dec 2007 10:15:20 +0000
Subject: [PATCH] Workaround a ghc 6.8.2 bug

---
 src/GF/CF/PPrCF.hs | 3 +++
 1 file changed, 3 insertions(+)

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)) =