Skip to content

Commit

Permalink
In Setup, tell haddock about GHC.Prim
Browse files Browse the repository at this point in the history
  • Loading branch information
igfoo committed Sep 5, 2008
1 parent b0f3bc3 commit 4e29a99
Show file tree
Hide file tree
Showing 2 changed files with 13 additions and 3 deletions.
13 changes: 11 additions & 2 deletions Setup.hs
Expand Up @@ -9,6 +9,7 @@ import Data.Maybe
import Distribution.PackageDescription import Distribution.PackageDescription
import Distribution.Simple import Distribution.Simple
import Distribution.Simple.LocalBuildInfo import Distribution.Simple.LocalBuildInfo
import Distribution.Simple.Program
import Distribution.Simple.Utils import Distribution.Simple.Utils
import Distribution.Text import Distribution.Text
import System.Cmd import System.Cmd
Expand All @@ -25,8 +26,9 @@ main = do let hooks = simpleUserHooks {
$ buildHook simpleUserHooks, $ buildHook simpleUserHooks,
makefileHook = build_primitive_sources makefileHook = build_primitive_sources
$ makefileHook simpleUserHooks, $ makefileHook simpleUserHooks,
haddockHook = build_primitive_sources haddockHook = addPrimModuleForHaddock
$ haddockHook simpleUserHooks } $ build_primitive_sources
$ haddockHook simpleUserHooks }
defaultMainWithHooks hooks defaultMainWithHooks hooks


type Hook a = PackageDescription -> LocalBuildInfo -> UserHooks -> a -> IO () type Hook a = PackageDescription -> LocalBuildInfo -> UserHooks -> a -> IO ()
Expand All @@ -40,6 +42,13 @@ addPrimModule f pd lbi uhs x =
lbi' = lbi { localPkgDescr = lpd } lbi' = lbi { localPkgDescr = lpd }
f pd' lbi' uhs x f pd' lbi' uhs x


addPrimModuleForHaddock :: Hook a -> Hook a
addPrimModuleForHaddock f pd lbi uhs x =
do let pc = withPrograms lbi
pc' = userSpecifyArgs "haddock" ["GHC/Prim.hs"] pc
lbi' = lbi { withPrograms = pc' }
f pd lbi' uhs x

addPrimModuleToPD :: PackageDescription -> PackageDescription addPrimModuleToPD :: PackageDescription -> PackageDescription
addPrimModuleToPD pd = addPrimModuleToPD pd =
case library pd of case library pd of
Expand Down
3 changes: 2 additions & 1 deletion ghc-prim.cabal
Expand Up @@ -22,7 +22,8 @@ Library {
GHC.Unit GHC.Unit
c-sources: c-sources:
cbits/longlong.c cbits/longlong.c
extensions: CPP, MagicHash, ForeignFunctionInterface, UnliftedFFITypes extensions: CPP, MagicHash, ForeignFunctionInterface, UnliftedFFITypes,
UnboxedTuples, EmptyDataDecls, NoImplicitPrelude
-- We need to set the package name to ghc-prim (without a version number) -- We need to set the package name to ghc-prim (without a version number)
-- as it's magic. -- as it's magic.
ghc-options: -package-name ghc-prim ghc-options: -package-name ghc-prim
Expand Down

0 comments on commit 4e29a99

Please sign in to comment.