diff options
author | Sasha Bogicevic <sasa.bogicevic@pm.me> | 2021-04-27 17:47:11 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-06 02:31:31 -0400 |
commit | 418295eab741fd420c6f350141c332ef26f9f0a4 (patch) | |
tree | c0404c0de1a52713120a05ae0dd208732f6f5924 /compiler/Language | |
parent | c4f4193a13f751380e4cedbc2688a339f69325c9 (diff) | |
download | haskell-418295eab741fd420c6f350141c332ef26f9f0a4.tar.gz |
19486 Nearly all uses of `uniqCompareFS` are dubious and lack a non-determinism justification
Diffstat (limited to 'compiler/Language')
-rw-r--r-- | compiler/Language/Haskell/Syntax/Lit.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/Language/Haskell/Syntax/Lit.hs b/compiler/Language/Haskell/Syntax/Lit.hs index a025edc4f6..1cdcfe8779 100644 --- a/compiler/Language/Haskell/Syntax/Lit.hs +++ b/compiler/Language/Haskell/Syntax/Lit.hs @@ -164,7 +164,7 @@ instance Ord OverLitVal where compare (HsFractional f1) (HsFractional f2) = f1 `compare` f2 compare (HsFractional _) (HsIntegral _) = GT compare (HsFractional _) (HsIsString _ _) = LT - compare (HsIsString _ s1) (HsIsString _ s2) = s1 `uniqCompareFS` s2 + compare (HsIsString _ s1) (HsIsString _ s2) = s1 `lexicalCompareFS` s2 compare (HsIsString _ _) (HsIntegral _) = GT compare (HsIsString _ _) (HsFractional _) = GT |