From: Ross Paterson <ross@soi.city.ac.uk>
Date: Thu, 31 Aug 2006 12:52:19 +0000 (+0000)
Subject: mark nhc98 import hack
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4c8f5d13c302abce56a276b130fc4eb7c4b4cf0a;p=haskell-directory.git

mark nhc98 import hack
---

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