diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/utils/FastString.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/FastString.hs b/compiler/utils/FastString.hs index eba59fd064..08155a30b6 100644 --- a/compiler/utils/FastString.hs +++ b/compiler/utils/FastString.hs @@ -232,9 +232,9 @@ instance NFData FastString where rnf fs = seq fs () cmpFS :: FastString -> FastString -> Ordering -cmpFS f1@(FastString u1 _ _) f2@(FastString u2 _ _) = +cmpFS f1@(FastString u1 sbs1 _) f2@(FastString u2 sbs2 _) = if u1 == u2 then EQ else - compare (bytesFS f1) (bytesFS f2) + compare sbs1 sbs2 -- ----------------------------------------------------------------------------- -- Construction |