File tree 1 file changed +7
-1
lines changed
cabal-install/src/Distribution/Client/Init 1 file changed +7
-1
lines changed Original file line number Diff line number Diff line change @@ -33,6 +33,8 @@ import System.FilePath
33
33
34
34
import qualified Data.List.NonEmpty as NE
35
35
import qualified Data.Map as M
36
+ import qualified Data.Set as Set
37
+
36
38
import Control.Monad
37
39
( (>=>) )
38
40
import Control.Arrow
@@ -595,7 +597,7 @@ getModulesBuildToolsAndDeps pkgIx flags = do
595
597
let sourceFiles = filter (isSourceFile (sourceDirs flags)) sourceFiles0
596
598
597
599
Just mods <- return (exposedModules flags)
598
- ?>> (return . Just . map moduleName $ sourceFiles)
600
+ ?>> (return . Just . sortNub . map moduleName $ sourceFiles)
599
601
600
602
tools <- return (buildTools flags)
601
603
?>> (return . Just . neededBuildPrograms $ sourceFiles)
@@ -645,6 +647,10 @@ getModulesBuildToolsAndDeps pkgIx flags = do
645
647
, otherExts = exts
646
648
}
647
649
650
+ where
651
+ sortNub :: Ord a => [a ] -> [a ]
652
+ sortNub = Set. toList . Set. fromList
653
+
648
654
-- | Given a list of imported modules, retrieve the list of dependencies that
649
655
-- provide those modules.
650
656
importsToDeps :: InitFlags -> [ModuleName ] -> InstalledPackageIndex -> IO [P. Dependency ]
You can’t perform that action at this time.
0 commit comments