Filter non test module when filling module data

bonnefoa · Nov 30, 2010 · e31899a · e31899a
1 parent 055cd65
commit e31899a
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/Shaker/GhcInterface.hs b/src/Shaker/GhcInterface.hs
@@ -94,7 +94,7 @@ configureDynFlagsWithCompileInput cpIn dflags = dflags{
 
 fillModuleDataTest :: [ModuleData] -> Shaker IO [[ModuleData]]
 fillModuleDataTest = separateEqual
-  >>> mapM fillModuleDataTest'
+  >>> mapM fillModuleDataTest' 
 
 fillModuleDataTest' :: [ModuleData] -> Shaker IO [ModuleData]
 fillModuleDataTest' modDatas = do
@@ -107,7 +107,10 @@ fillModuleDataTest' modDatas = do
     mss <- depanal [] False
     let sort_mss = flattenSCCs $ topSortModuleGraph True mss Nothing
     mapM convertModSummaryToModuleData sort_mss
-  mergeMdatas >>> filter (\a -> moduleDataName a /= "") >>> return $ (modDatas ++ ghcModuleDatas) 
+  mergeMdatas 
+    >>> filter (\a -> moduleDataName a /= "") 
+    >>> removeNonTestModules 
+    >>> return $ (modDatas ++ ghcModuleDatas) 
 
 mergeMdatas :: [ModuleData] -> [ModuleData]
 mergeMdatas lstMdatas = map (\mdata -> filter (==mdata) >>> mconcat $ lstMdatas) uniqueMdata