From 4c8f5d13c302abce56a276b130fc4eb7c4b4cf0a Mon Sep 17 00:00:00 2001
From: Ross Paterson <ross@soi.city.ac.uk>
Date: Thu, 31 Aug 2006 12:52:19 +0000
Subject: [PATCH] mark nhc98 import hack

---
 Data/Foldable.hs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Data/Foldable.hs b/Data/Foldable.hs
index 7c34b77..d245aa9 100644
--- a/Data/Foldable.hs
+++ b/Data/Foldable.hs
@@ -59,13 +59,16 @@ import Prelude hiding (foldl, foldr, foldl1, foldr1, mapM_, sequence_,
 		elem, notElem, concat, concatMap, and, or, any, all,
 		sum, product, maximum, minimum)
 import qualified Prelude (foldl, foldr, foldl1, foldr1)
-import Control.Arrow (ArrowZero(..))
 import Control.Applicative
 import Control.Monad (MonadPlus(..))
 import Data.Maybe (fromMaybe, listToMaybe)
 import Data.Monoid
 import Data.Array
 
+#ifdef __NHC__
+import Control.Arrow (ArrowZero(..)) -- work around nhc98 typechecker problem
+#endif
+
 #ifdef __GLASGOW_HASKELL__
 import GHC.Exts (build)
 #endif
-- 
1.7.10.4