Force happy to build before c2hs

This commit is contained in:
Michael Snoyman 2014-09-14 07:46:52 +03:00
parent 957783dd62
commit ae813e340e

View File

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