diff options
Diffstat (limited to 'ghc/compiler/utils/Util.lhs')
| -rw-r--r-- | ghc/compiler/utils/Util.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs index 6d51f3aaf2..21e4589ad0 100644 --- a/ghc/compiler/utils/Util.lhs +++ b/ghc/compiler/utils/Util.lhs @@ -71,7 +71,7 @@ module Util ( -- comparisons #if defined(COMPILING_GHC) Ord3(..), thenCmp, cmpList, - cmpPString, + cmpPString, FAST_STRING, #else cmpString, #endif @@ -735,7 +735,7 @@ cmpString _ _ = error "cmpString" cmpPString :: FAST_STRING -> FAST_STRING -> TAG_ cmpPString x y - = case (_tagCmp x y) of { _LT -> LT_ ; _EQ -> EQ_ ; _GT -> GT_ } + = case (tagCmpFS x y) of { _LT -> LT_ ; _EQ -> EQ_ ; _GT -> GT_ } \end{code} %************************************************************************ |