diff options
author | Ian Lynagh <igloo@earth.li> | 2008-06-20 19:30:03 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2008-06-20 19:30:03 +0000 |
commit | e761a777f2440ca1b8d8b40848cc5aa30d889ff6 (patch) | |
tree | b27793ee161d4c49e2aa49d0152b639512d3aa7d /compiler/utils | |
parent | d78ab147ec3d8c3b06b6e922bed4cd9837c9c797 (diff) | |
download | haskell-e761a777f2440ca1b8d8b40848cc5aa30d889ff6.tar.gz |
Remove code that isn't used now that we assume that GHC >= 6.4
Diffstat (limited to 'compiler/utils')
-rw-r--r-- | compiler/utils/Binary.hs | 10 | ||||
-rw-r--r-- | compiler/utils/FastString.lhs | 4 | ||||
-rw-r--r-- | compiler/utils/Panic.lhs | 15 | ||||
-rw-r--r-- | compiler/utils/StringBuffer.lhs | 8 | ||||
-rw-r--r-- | compiler/utils/Util.lhs | 10 |
5 files changed, 3 insertions, 44 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 4d82deb782..3d20609067 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -79,17 +79,7 @@ import GHC.Real ( Ratio(..) ) import GHC.Exts import GHC.IOBase ( IO(..) ) import GHC.Word ( Word8(..) ) -#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 601 --- openFileEx is available from the lang package, but we want to --- be independent of hslibs libraries. -import GHC.Handle ( openFileEx, IOModeEx(..) ) -#else import System.IO ( openBinaryFile ) -#endif - -#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 601 -openBinaryFile f mode = openFileEx f (BinaryMode mode) -#endif type BinArray = ForeignPtr Word8 diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs index cd93c78a47..ac79b5b75f 100644 --- a/compiler/utils/FastString.lhs +++ b/compiler/utils/FastString.lhs @@ -573,10 +573,6 @@ pokeCAString ptr str = in go str 0 -#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 602 -peekCAStringLen = peekCStringLen -#endif - {-# NOINLINE sLit #-} sLit :: String -> LitString sLit x = mkLitString x diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs index f79ffce783..b8ab86af68 100644 --- a/compiler/utils/Panic.lhs +++ b/compiler/utils/Panic.lhs @@ -31,7 +31,7 @@ import FastTypes import System.Posix.Signals #endif /* mingw32_HOST_OS */ -#if defined(mingw32_HOST_OS) && __GLASGOW_HASKELL__ >= 603 +#if defined(mingw32_HOST_OS) import GHC.ConsoleHandler #endif @@ -116,18 +116,11 @@ showGhcException (Panic s) ++ s ++ "\n\n" ++ "Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug\n") -myMkTyConApp :: TyCon -> [TypeRep] -> TypeRep -#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 603 -myMkTyConApp = mkAppTy -#else -myMkTyConApp = mkTyConApp -#endif - ghcExceptionTc :: TyCon ghcExceptionTc = mkTyCon "GhcException" {-# NOINLINE ghcExceptionTc #-} instance Typeable GhcException where - typeOf _ = myMkTyConApp ghcExceptionTc [] + typeOf _ = mkTyConApp ghcExceptionTc [] \end{code} Panics and asserts. @@ -198,7 +191,7 @@ installSignalHandlers = do installHandler sigQUIT (Catch interrupt) Nothing installHandler sigINT (Catch interrupt) Nothing return () -#elif __GLASGOW_HASKELL__ >= 603 +#else -- GHC 6.3+ has support for console events on Windows -- NOTE: running GHCi under a bash shell for some reason requires -- you to press Ctrl-Break rather than Ctrl-C to provoke @@ -210,8 +203,6 @@ installSignalHandlers = do installHandler (Catch sig_handler) return () -#else - return () -- nothing #endif {-# NOINLINE interruptTargetThread #-} diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs index 1a30edbc5a..a89c0d2ba9 100644 --- a/compiler/utils/StringBuffer.lhs +++ b/compiler/utils/StringBuffer.lhs @@ -49,15 +49,7 @@ import System.IO ( hGetBuf, hFileSize,IOMode(ReadMode), hClose import GHC.Exts -#if !defined(__GLASGOW_HASKELL__) || __GLASGOW_HASKELL__ >= 601 import System.IO ( openBinaryFile ) -#else -import IOExts ( openFileEx, IOModeEx(..) ) -#endif - -#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 601 -openBinaryFile fp mode = openFileEx fp (BinaryMode mode) -#endif -- ----------------------------------------------------------------------------- -- The StringBuffer type diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs index 62e2edac92..1b2a44dea1 100644 --- a/compiler/utils/Util.lhs +++ b/compiler/utils/Util.lhs @@ -405,16 +405,6 @@ isn'tIn msg x ys # endif /* DEBUG */ \end{code} -foldl1' was added in GHC 6.4 - -\begin{code} -#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 604 -foldl1' :: (a -> a -> a) -> [a] -> a -foldl1' f (x:xs) = foldl' f x xs -foldl1' _ [] = panic "foldl1'" -#endif -\end{code} - %************************************************************************ %* * \subsubsection[Utils-Carsten-mergesort]{A mergesort from Carsten} |