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