X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Prelude.hs;h=2f0a510bd26850b7d49aab7836a660b05a2ff0a2;hb=b1f2e321ceac8fcfc1f0756e2f5c2585fbd00b3c;hp=9de927d4275699fccb1bdad847fb2772b8848fa6;hpb=06bb288c8d7e2f46276f25c3ef16d091de8f3ded;p=ghc-base.git

diff --git a/Prelude.hs b/Prelude.hs
index 9de927d..2f0a510 100644
--- a/Prelude.hs
+++ b/Prelude.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Prelude
@@ -172,14 +172,24 @@ import GHC.Err   ( error, undefined )
 import Hugs.Prelude
 #endif
 
+import Data.Eq
+import Data.Ord
+
 #ifndef __HUGS__
 infixr 0 $!
 
-
 -- -----------------------------------------------------------------------------
 -- Miscellaneous functions
 
+-- | Strict (call-by-value) application, defined in terms of 'seq'.
 ($!)    :: (a -> b) -> a -> b
 f $! x  = x `seq` f x
 #endif
 
+#ifdef __HADDOCK__
+-- | The value of @'seq' a b@ is bottom if @a@ is bottom, and otherwise
+-- equal to @b@.  'seq' is usually introduced to improve performance by
+-- avoiding unneeded laziness.
+seq :: a -> b -> b
+seq _ y = y
+#endif