From: malcolm <unknown>
Date: Tue, 10 Sep 2002 10:50:28 +0000 (+0000)
Subject: [project @ 2002-09-10 10:50:28 by malcolm]
X-Git-Tag: nhc98-1-18-release~861
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d7351a78329804dd5115b83184aec64136a5c8e2;p=haskell-directory.git

[project @ 2002-09-10 10:50:28 by malcolm]
Export the builtin syntax for []((:),[]), ()(()), and (->) in nhc98
as well as ghc.
---

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((==), (/=)),