X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Prelude.hs;h=02aad8b697908db3b9911d94b8b40bec3d3ce506;hb=d7351a78329804dd5115b83184aec64136a5c8e2;hp=9f044e57456163d5e4006bbed16e7b10288bf3ec;hpb=56c900f7554904e4eef467b03635e732360aefc9;p=ghc-base.git

diff --git a/Prelude.hs b/Prelude.hs
index 9f044e5..02aad8b 100644
--- a/Prelude.hs
+++ b/Prelude.hs
@@ -24,15 +24,16 @@ module Prelude (
     Ordering(LT, EQ, GT),
     Char, String, Int, Integer, Float, Double, IO,
     Rational,
-#ifdef __GLASGOW_HASKELL__
+#if defined(__GLASGOW_HASKELL__) || defined(__NHC__)
 	-- Restore export of (:) until we get to 5.05
-    []((:), []),	-- Not legal Haskell 98; available through built-in syntax
+    []((:), []),	-- Not legal Haskell 98;
+			-- ... available through built-in syntax
+    ()(..),		-- Not legal Haskell 98
+    (->),		-- ... available through built-in syntax
 #endif
     
     module Data.Tuple,
         -- Includes tuple types + fst, snd, curry, uncurry
-    -- ()(..),		-- Not legal Haskell 98
-    -- (->),		-- ... available through built-in syntax
     
     -- * Basic type classes
     Eq((==), (/=)),