@@ -68,7 +68,7 @@ findUsed ctx cg ns = dfs M.empty ns
68 | otherwise = dfs (M.insert n (deps, depn) dmap) ns
68 | otherwise = dfs (M.insert n (deps, depn) dmap) ns
70 next = [n | n <- S.toList depn, n `M.notMember` dmap]
70 next = [n | n <- S.toList depn, n `M.notMember` dmap]
71− depn = depNames deps
71+ depn = S.delete n (depNames deps)
72 deps = getDeps n
72 deps = getDeps n
74 depNames :: Deps -> Set Name
74 depNames :: Deps -> Set Name