diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2019-10-21 18:29:32 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2019-10-22 08:34:51 +0100 |
| commit | 4e0802a202d1c500712cb87d8c55a87850df533b (patch) | |
| tree | 9a358e2adac015df11cfb7e22c3311529b7722a6 | |
| parent | f4f89cb5fffd44163d689bc14c9fc1a3d2b8bbee (diff) | |
| download | haskell-4e0802a202d1c500712cb87d8c55a87850df533b.tar.gz | |
Less unused variables, equal speed; hello bgamari, nice to meet you here
| -rw-r--r-- | compiler/utils/FastString.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/FastString.hs b/compiler/utils/FastString.hs index 08155a30b6..8a66ed6b06 100644 --- a/compiler/utils/FastString.hs +++ b/compiler/utils/FastString.hs @@ -232,7 +232,7 @@ instance NFData FastString where rnf fs = seq fs () cmpFS :: FastString -> FastString -> Ordering -cmpFS f1@(FastString u1 sbs1 _) f2@(FastString u2 sbs2 _) = +cmpFS (FastString u1 sbs1 _) (FastString u2 sbs2 _) = if u1 == u2 then EQ else compare sbs1 sbs2 |