projects
/
haskell-directory.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make Control.Monad.Instances compilable by nhc98
[haskell-directory.git]
/
Prelude.hs
diff --git
a/Prelude.hs
b/Prelude.hs
index
9de927d
..
840c2ca
100644
(file)
--- a/
Prelude.hs
+++ b/
Prelude.hs
@@
-1,4
+1,4
@@
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
-----------------------------------------------------------------------------
-- |
-- Module : Prelude
-----------------------------------------------------------------------------
-- |
-- Module : Prelude
@@
-153,6
+153,8
@@
import Data.Either
import Data.Maybe
import Data.Bool
import Data.Tuple
import Data.Maybe
import Data.Bool
import Data.Tuple
+import Data.Eq
+import Data.Ord
#endif
#ifdef __GLASGOW_HASKELL__
#endif
#ifdef __GLASGOW_HASKELL__
@@
-175,11
+177,18
@@
import Hugs.Prelude
#ifndef __HUGS__
infixr 0 $!
#ifndef __HUGS__
infixr 0 $!
-
-- -----------------------------------------------------------------------------
-- Miscellaneous functions
-- -----------------------------------------------------------------------------
-- Miscellaneous functions
+-- | Strict (call-by-value) application, defined in terms of 'seq'.
($!) :: (a -> b) -> a -> b
f $! x = x `seq` f x
#endif
($!) :: (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