From: David Waern <david.waern@gmail.com>
Date: Sun, 9 Dec 2007 17:39:31 +0000 (+0000)
Subject: Add GHC.Prim to exposedModules in the Haddock 0.x hook
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8ee6211d0abe504d6cafe687a18ff9b2632de06e;p=ghc-base.git

Add GHC.Prim to exposedModules in the Haddock 0.x hook

Please merge to the stable branch
---

diff --git a/Setup.hs b/Setup.hs
index 30d4af1..2ad48a4 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -11,8 +11,6 @@ import Distribution.PackageDescription
 import Distribution.Simple
 import Distribution.Simple.LocalBuildInfo
 import Distribution.Simple.Utils
-import Distribution.Simple.Program
-import Distribution.Version
 import System.Cmd
 import System.FilePath
 import System.Exit
@@ -26,8 +24,7 @@ main = do let hooks = defaultUserHooks {
                   makefileHook = build_primitive_sources
                                $ makefileHook defaultUserHooks,
                   haddockHook = build_primitive_sources
-                              $ add_prim
-                              $ haddockHook defaultUserHooks }
+                               $ haddockHook defaultUserHooks }
           defaultMainWithHooks hooks
 
 type Hook a = PackageDescription -> LocalBuildInfo -> UserHooks -> a -> IO ()
@@ -51,23 +48,6 @@ build_primitive_sources f pd lbi uhs x
           maybeUpdateFile primopwrappers_tmp primopwrappers
       f pd lbi uhs x
 
-add_prim_to_pd pd = pd { library = Just lib' }
-  where
-    lib' = case library pd of
-      Just lib -> lib { exposedModules = "GHC.Prim" : exposedModules lib }
-      Nothing  -> error "Expected a library"
-
-add_prim :: Hook a -> Hook a
-add_prim f pd lbi uhs x = do
-  let mbHaddockProg = lookupProgram haddockProgram (withPrograms lbi)
-  case mbHaddockProg of
-    Nothing -> f pd lbi uhs x
-    Just haddockProg -> do
-      let
-        Just version = programVersion haddockProg
-        pd' = if version < Version [2,0] [] then add_prim_to_pd pd else pd
-      f pd' lbi uhs x
-
 -- Replace a file only if the new version is different from the old.
 -- This prevents make from doing unnecessary work after we run 'setup makefile'
 maybeUpdateFile :: FilePath -> FilePath -> IO ()