diff options
-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 775352c25a..cfcbb20aeb 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 |