projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-01-28 14:55:05 by simonmar]
[ghc-base.git]
/
Prelude.hs
diff --git
a/Prelude.hs
b/Prelude.hs
index
cccfcb5
..
578ba7b
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
@@
-6,7
+6,7
@@
-- License : BSD-style (see the file libraries/base/LICENSE)
--
-- Maintainer : libraries@haskell.org
-- License : BSD-style (see the file libraries/base/LICENSE)
--
-- Maintainer : libraries@haskell.org
--- Stability : provisional
+-- Stability : stable
-- Portability : portable
--
-- The Prelude: a standard module imported by default into all Haskell
-- Portability : portable
--
-- The Prelude: a standard module imported by default into all Haskell
@@
-111,11
+111,15
@@
module Prelude (
lines, words, unlines, unwords,
-- * Converting to and from @String@
lines, words, unlines, unwords,
-- * Converting to and from @String@
- ReadS, ShowS,
- Read(readsPrec, readList),
+ -- ** Converting to @String@
+ ShowS,
Show(showsPrec, showList, show),
Show(showsPrec, showList, show),
- reads, shows, read, lex,
- showChar, showString, readParen, showParen,
+ shows,
+ showChar, showString, showParen,
+ -- ** Converting from @String@
+ ReadS,
+ Read(readsPrec, readList),
+ reads, readParen, read, lex,
-- * Basic Input and output
IO,
-- * Basic Input and output
IO,
@@
-175,7
+179,15
@@
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