From ae813e340e1e93f170df0eb862e0e0ed8eab9f9c Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 14 Sep 2014 07:46:52 +0300
Subject: [PATCH] Force happy to build before c2hs

---
 Stackage/Select.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Stackage/Select.hs b/Stackage/Select.hs
index a5b66604..2393cfbd 100644
--- a/Stackage/Select.hs
+++ b/Stackage/Select.hs
@@ -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 =