diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/Data/FastString.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/GHC/Data/FastString.hs b/compiler/GHC/Data/FastString.hs index fbd69d426f..1907ef91c9 100644 --- a/compiler/GHC/Data/FastString.hs +++ b/compiler/GHC/Data/FastString.hs @@ -231,10 +231,12 @@ instance Data FastString where instance NFData FastString where rnf fs = seq fs () +-- | Compare FastString lexicographically cmpFS :: FastString -> FastString -> Ordering cmpFS fs1 fs2 = if uniq fs1 == uniq fs2 then EQ else - compare (fs_sbs fs1) (fs_sbs fs2) + compare (unpackFS fs1) (unpackFS fs2) + -- compare as String, not as ShortByteString (cf #18562) -- ----------------------------------------------------------------------------- -- Construction |