diff options
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Digraph.lhs | 2 | ||||
| -rw-r--r-- | compiler/utils/Encoding.hs | 1 | ||||
| -rw-r--r-- | compiler/utils/FastFunctions.lhs | 1 | ||||
| -rw-r--r-- | compiler/utils/FastString.lhs | 3 | ||||
| -rw-r--r-- | compiler/utils/FastTypes.lhs | 1 | ||||
| -rw-r--r-- | compiler/utils/Interval.hs | 4 | ||||
| -rw-r--r-- | compiler/utils/Panic.lhs | 2 | ||||
| -rw-r--r-- | compiler/utils/UniqFM.lhs | 4 | ||||
| -rw-r--r-- | compiler/utils/Util.lhs | 2 |
9 files changed, 2 insertions, 18 deletions
diff --git a/compiler/utils/Digraph.lhs b/compiler/utils/Digraph.lhs index c36e7058fc..6d1d8d4639 100644 --- a/compiler/utils/Digraph.lhs +++ b/compiler/utils/Digraph.lhs @@ -24,8 +24,6 @@ module Digraph( bcc ) where --- XXX This define is a bit of a hack, and should be done more nicely -#define FAST_STRING_NOT_NEEDED 1 #include "HsVersions.h" ------------------------------------------------------------------------------ diff --git a/compiler/utils/Encoding.hs b/compiler/utils/Encoding.hs index 2943768d56..f2659e6a9a 100644 --- a/compiler/utils/Encoding.hs +++ b/compiler/utils/Encoding.hs @@ -23,7 +23,6 @@ module Encoding ( zDecodeString ) where -#define COMPILING_FAST_STRING #include "HsVersions.h" import Foreign import Data.Char ( ord, chr, isDigit, digitToInt, intToDigit, diff --git a/compiler/utils/FastFunctions.lhs b/compiler/utils/FastFunctions.lhs index 5d8ff23dbd..aca5344bc8 100644 --- a/compiler/utils/FastFunctions.lhs +++ b/compiler/utils/FastFunctions.lhs @@ -12,7 +12,6 @@ module FastFunctions ( global, Global ) where -#define COMPILING_FAST_STRING #include "HsVersions.h" import FastTypes diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs index 2448f1686d..4417c0850f 100644 --- a/compiler/utils/FastString.lhs +++ b/compiler/utils/FastString.lhs @@ -71,9 +71,6 @@ module FastString ptrStrLength ) where --- This #define suppresses the "import FastString" that --- HsVersions otherwise produces -#define COMPILING_FAST_STRING #include "HsVersions.h" import Encoding diff --git a/compiler/utils/FastTypes.lhs b/compiler/utils/FastTypes.lhs index 71a317b1c9..a69ab25671 100644 --- a/compiler/utils/FastTypes.lhs +++ b/compiler/utils/FastTypes.lhs @@ -39,7 +39,6 @@ module FastTypes ( FastPtr, pBox, pUnbox, castFastPtr ) where -#define COMPILING_FAST_STRING #include "HsVersions.h" #if defined(__GLASGOW_HASKELL__) diff --git a/compiler/utils/Interval.hs b/compiler/utils/Interval.hs index 8d96b19c7d..03545ebc40 100644 --- a/compiler/utils/Interval.hs +++ b/compiler/utils/Interval.hs @@ -111,6 +111,6 @@ rev_app :: [a] -> [a] -> [a] rev_app [] xs = xs rev_app (y:ys) xs = rev_app ys (y:xs) - -_unused :: FS.FastString +_unused :: () _unused = undefined i_min i_lim overlaps contains + diff --git a/compiler/utils/Panic.lhs b/compiler/utils/Panic.lhs index ffd3b6751d..f79ffce783 100644 --- a/compiler/utils/Panic.lhs +++ b/compiler/utils/Panic.lhs @@ -22,8 +22,6 @@ module Panic installSignalHandlers, interruptTargetThread ) where --- XXX This define is a bit of a hack, and should be done more nicely -#define FAST_STRING_NOT_NEEDED 1 #include "HsVersions.h" import Config diff --git a/compiler/utils/UniqFM.lhs b/compiler/utils/UniqFM.lhs index 862ca589d8..4081017f87 100644 --- a/compiler/utils/UniqFM.lhs +++ b/compiler/utils/UniqFM.lhs @@ -839,7 +839,3 @@ use_snd :: a -> b -> b use_snd _ b = b \end{code} -\begin{code} -_unused :: FS.FastString -_unused = undefined -\end{code} diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs index 9537ae1f37..1d11b90a55 100644 --- a/compiler/utils/Util.lhs +++ b/compiler/utils/Util.lhs @@ -74,8 +74,6 @@ module Util ( Direction(..), reslash, ) where --- XXX This define is a bit of a hack, and should be done more nicely -#define FAST_STRING_NOT_NEEDED 1 #include "HsVersions.h" import Panic |