Skip to content

Commit 5dffc1e

Browse files
committed
Use ordNub instead of nub
1 parent b708112 commit 5dffc1e

File tree

1 file changed

+2
-1
lines changed
  • cabal-install/src/Distribution/Client/ProjectConfig

1 file changed

+2
-1
lines changed

cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -127,6 +127,7 @@ import Distribution.Simple.Setup
127127
import Distribution.Simple.Utils
128128
( debug
129129
, lowercase
130+
, ordNub
130131
)
131132
import Distribution.Types.CondTree
132133
( CondBranch (..)
@@ -274,7 +275,7 @@ parseProjectSkeleton cacheDir httpTransport verbosity importsBy projectDir sourc
274275

275276
-- Once we canonicalize the import path, we can check for cyclical and duplicate imports
276277
normLocPath@(ProjectConfigPath (uniqueImport :| _)) <- canonicalizeConfigPath projectDir importLocPath
277-
seenImportsBy@(fmap fst -> seenImports) <- atomicModifyIORef' importsBy (\ibs -> (nub $ (uniqueImport, normLocPath) : ibs, ibs))
278+
seenImportsBy@(fmap fst -> seenImports) <- atomicModifyIORef' importsBy (\ibs -> (ordNub $ (uniqueImport, normLocPath) : ibs, ibs))
278279

279280
debug verbosity $ "\nimport path, normalized\n=======================\n" ++ render (docProjectConfigPath normLocPath)
280281
debug verbosity "\nseen unique paths\n================="

0 commit comments

Comments
 (0)