@@ -125,7 +125,11 @@ iiBuildTools InstallInfo { iiPackageDB = PackageDB m, iiPackages = packages } =
125 Just pi -> Set.fromList
125 Just pi -> Set.fromList
126 $ mapMaybe (flip Map.lookup buildToolMap)
126 $ mapMaybe (flip Map.lookup buildToolMap)
127 $ Set.toList
127 $ Set.toList
128− $ piBuildToolsExe pi
128+ $ piBuildToolsExe pi `Set.union` manualDeps
131+ | pn == PackageName "c2hs" = Set.singleton $ Executable "happy"
132+ | otherwise = Set.empty
130topSort :: (Show a, Ord a) => [(a, Set a)] -> Either String [a]
134topSort :: (Show a, Ord a) => [(a, Set a)] -> Either String [a]
131topSort orig =
135topSort orig =