Use ordNub instead of nub

haskell · May 15, 2024 · fa8f6c9 · fa8f6c9
1 parent 30b2b1f
commit fa8f6c9
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs b/cabal-install/src/Distribution/Client/ProjectConfig/Legacy.hs
@@ -127,6 +127,7 @@ import Distribution.Simple.Setup
 import Distribution.Simple.Utils
   ( debug
   , lowercase
+  , ordNub
   )
 import Distribution.Types.CondTree
   ( CondBranch (..)
@@ -274,7 +275,7 @@ parseProjectSkeleton cacheDir httpTransport verbosity importsBy projectDir sourc
 
         -- Once we canonicalize the import path, we can check for cyclical and duplicate imports
         normLocPath@(ProjectConfigPath (uniqueImport :| _)) <- canonicalizeConfigPath projectDir importLocPath
-        seenImportsBy@(fmap fst -> seenImports) <- atomicModifyIORef' importsBy (\ibs -> (nub $ (uniqueImport, normLocPath) : ibs, ibs))
+        seenImportsBy@(fmap fst -> seenImports) <- atomicModifyIORef' importsBy (\ibs -> (ordNub $ (uniqueImport, normLocPath) : ibs, ibs))
 
         debug verbosity $ "\nimport path, normalized\n=======================\n" ++ render (docProjectConfigPath normLocPath)
         debug verbosity "\nseen unique paths\n================="