[commit: ghc] wip/nfs-locking: Install mkUserGuidePart binary to inplace/bin. (d1ec507)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/d1ec507d7b4d837ee0161f08e9eab0b5630f2797/ghc

>---------------------------------------------------------------

commit d1ec507d7b4d837ee0161f08e9eab0b5630f2797
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Sun Feb 14 22:55:38 2016 +0000

    Install mkUserGuidePart binary to inplace/bin.


>---------------------------------------------------------------

d1ec507d7b4d837ee0161f08e9eab0b5630f2797
 src/GHC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GHC.hs b/src/GHC.hs
index 0262243..d29cbbf 100644
--- a/src/GHC.hs
+++ b/src/GHC.hs
@@ -106,7 +106,7 @@ ghcSplit = "inplace/lib/bin/ghc-split"
 programPath :: Stage -> Package -> Maybe FilePath
 programPath stage pkg
     | pkg == ghc = Just . inplaceProgram $ "ghc-stage" ++ show (fromEnum stage + 1)
-    | pkg == haddock || pkg == ghcTags = case stage of
+    | pkg `elem` [ghcTags, haddock, mkUserGuidePart] = case stage of
         Stage2 -> Just . inplaceProgram $ pkgNameString pkg
         _      -> Nothing
     | pkg `elem` [touchy, unlit] = case stage of