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/GHC/Iface | |
| 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/GHC/Iface')
| -rw-r--r-- | compiler/GHC/Iface/Ext/Types.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Iface/Ext/Types.hs b/compiler/GHC/Iface/Ext/Types.hs index 7a7fb4bb00..73a4012f23 100644 --- a/compiler/GHC/Iface/Ext/Types.hs +++ b/compiler/GHC/Iface/Ext/Types.hs @@ -305,7 +305,7 @@ data NodeAnnotation = NodeAnnotation instance Ord NodeAnnotation where compare (NodeAnnotation c0 t0) (NodeAnnotation c1 t1) - = mconcat [uniqCompareFS c0 c1, uniqCompareFS t0 t1] + = mconcat [lexicalCompareFS c0 c1, lexicalCompareFS t0 t1] instance Outputable NodeAnnotation where ppr (NodeAnnotation c t) = ppr (c,t) |