diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2013-09-15 10:58:00 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2013-09-17 09:47:55 +0200 |
| commit | 43ece172e7045d5ba633be6193f3e908eaa81f00 (patch) | |
| tree | f1e25c06b710a5087173daf5eb01b94ab8517917 /libraries/base/Prelude.hs | |
| parent | 907cd8c36b6c249dcb8af19f05303e34eb4e8de4 (diff) | |
| download | haskell-43ece172e7045d5ba633be6193f3e908eaa81f00.tar.gz | |
Remove Hugs98 specific code
For rationale. see
http://permalink.gmane.org/gmane.comp.lang.haskell.ghc.devel/2349
Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
Diffstat (limited to 'libraries/base/Prelude.hs')
| -rw-r--r-- | libraries/base/Prelude.hs | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/libraries/base/Prelude.hs b/libraries/base/Prelude.hs index 8107db448e..fdfa4fb456 100644 --- a/libraries/base/Prelude.hs +++ b/libraries/base/Prelude.hs @@ -37,10 +37,6 @@ module Prelude ( -- *** Tuples fst, snd, curry, uncurry, -#ifdef __HUGS__ - (:), -- Not legal Haskell 98 -#endif - -- ** Basic type classes Eq((==), (/=)), Ord(compare, (<), (<=), (>=), (>), max, min), @@ -138,7 +134,6 @@ module Prelude ( ) where -#ifndef __HUGS__ import Control.Monad import System.IO import System.IO.Error @@ -146,7 +141,6 @@ import Data.List import Data.Either import Data.Maybe import Data.Tuple -#endif #ifdef __GLASGOW_HASKELL__ import GHC.Base @@ -158,13 +152,7 @@ import GHC.Float import GHC.Show #endif -#ifdef __HUGS__ -import Hugs.Prelude -#endif - -#ifndef __HUGS__ infixr 0 $! -#endif -- ----------------------------------------------------------------------------- -- Miscellaneous functions @@ -173,7 +161,7 @@ infixr 0 $! ($!) :: (a -> b) -> a -> b #ifdef __GLASGOW_HASKELL__ f $! x = let !vx = x in f vx -- see #2273 -#elif !defined(__HUGS__) +#else f $! x = x `seq` f x #endif |