From 757c9098f3ebb1aedb908caee0dde68dce714985 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sun, 9 Dec 2007 17:39:31 +0000
Subject: Add GHC.Prim to exposedModules in the Haddock 0.x hook

Please merge to the stable branch
---
 libraries/base/Setup.hs | 22 +---------------------
 1 file changed, 1 insertion(+), 21 deletions(-)

(limited to 'libraries/base/Setup.hs')

diff --git a/libraries/base/Setup.hs b/libraries/base/Setup.hs
index 30d4af1504..2ad48a435d 100644
--- a/libraries/base/Setup.hs
+++ b/libraries/base/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 ()
-- 
cgit v1.2.1