diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2019-10-21 17:39:00 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2019-10-22 08:34:51 +0100 |
| commit | f4f89cb5fffd44163d689bc14c9fc1a3d2b8bbee (patch) | |
| tree | 1ca2800b00372b2939853eaf652b27a7c5d57528 /compiler | |
| parent | 2d8956784ec236ad817d06cb81a01b529d0aa9ae (diff) | |
| download | haskell-f4f89cb5fffd44163d689bc14c9fc1a3d2b8bbee.tar.gz | |
less allocation
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 |