Apply blacklist to generating ModuleInfo as well

commercialhaskell · Feb 17, 2017 · 9571c19 · 9571c19
1 parent 8852336
commit 9571c19
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Stack/Script.hs b/src/Stack/Script.hs
@@ -242,7 +242,9 @@ toModuleInfo bp = ModuleInfo
                     Map.fromList
                   $ map (\mn -> (ModuleName $ encodeUtf8 mn, Set.singleton pn))
                   $ Set.toList mns) . fmap (sdModules . ppDesc))
-            $ filter (\(_, pp) -> not $ pcHide $ ppConstraints pp)
+            $ filter (\(pn, pp) ->
+                    not (pcHide $ ppConstraints pp) &&
+                    pn `Set.notMember` blacklist)
             $ Map.toList (bpPackages bp)
     }