Build hpc-bin.

See #187.
snowleopard · Jan 29, 2016 · 0c06eac · 0c06eac
1 parent 8f9dd7e
commit 0c06eac
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/Builder.hs b/src/Builder.hs
@@ -36,6 +36,7 @@ data Builder = Alex
              | GhcPkg Stage
              | Haddock
              | Happy
+             | Hpc
              | HsColour
              | HsCpp
              | Hsc2Hs
@@ -63,6 +64,7 @@ builderProvenance = \case
     GhcCabalHsColour -> builderProvenance $ GhcCabal
     GhcPkg stage     -> if stage > Stage0 then Just (Stage0, ghcPkg) else Nothing
     Haddock          -> Just (Stage2, haddock)
+    Hpc              -> Just (Stage1, hpcBin)
     Hsc2Hs           -> Just (Stage0, hsc2hs)
     Unlit            -> Just (Stage0, unlit)
     _                -> Nothing

diff --git a/src/GHC.hs b/src/GHC.hs
@@ -112,6 +112,9 @@ programPath stage pkg
     | pkg `elem` [touchy, unlit] = case stage of
         Stage0 -> Just $ "inplace/lib/bin" -/- pkgNameString pkg <.> exe
         _      -> Nothing
+    | pkg == hpcBin = case stage of
+        Stage1 -> Just $ inplaceProgram "hpc"
+        _      -> Nothing
     | isProgram pkg = case stage of
         Stage0 -> Just . inplaceProgram $ pkgNameString pkg
         _      -> Just . installProgram $ pkgNameString pkg