X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=libraries%2Fgen_contents_index;h=ea9f4b95e1baff8a8f2a01eb34d228b9f857aebc;hb=988bfabb5e8a3a743d03e57f2f25ca1008c6e6f1;hp=8129bebd41b470e1d96c770f53be5b006b9ccb5d;hpb=4a73af53332e94ca56a6faed96f8391c14ecfa18;p=ghc-hetmet.git

diff --git a/libraries/gen_contents_index b/libraries/gen_contents_index
index 8129beb..ea9f4b9 100644
--- a/libraries/gen_contents_index
+++ b/libraries/gen_contents_index
@@ -2,22 +2,28 @@
 
 set -e
 
-HADDOCK=../utils/haddock/install-inplace/bin/haddock
 HADDOCK_ARGS=
 NAMES=
 
 case $* in
 --inplace)
+    HADDOCK=../utils/haddock/install-inplace/bin/haddock
     HADDOCK_FILES=`ls -1 */dist/doc/html/*/*.haddock | sort`
+    if [ -d dph ]
+    then
+        HADDOCK_FILES="$HADDOCK_FILES `ls -1 dph/*/dist/doc/html/*/*.haddock | sort`"
+    fi
     ;;
 *)
-    HADDOCK_FILES=`ls -1 */*.haddock | sort`
+    HADDOCK=../../../../bin/haddock
+    # We don't want the GHC API to swamp the index
+    HADDOCK_FILES=`ls -1 */*.haddock | grep -v "ghc/" | sort`
     ;;
 esac
 
 for HADDOCK_FILE in $HADDOCK_FILES
 do
-    NAME=`echo "$HADDOCK_FILE" | sed 's#/.*##'`
+    NAME=` echo "$HADDOCK_FILE" | sed 's#.*/##' | sed 's#\.haddock$##' `
     HADDOCK_ARGS="$HADDOCK_ARGS --read-interface=$NAME,$HADDOCK_FILE"
     NAMES="$NAMES $NAME"
 done
@@ -25,6 +31,7 @@ done
 # Now create the combined contents and index pages
 $HADDOCK --gen-index --gen-contents -o . \
          -t "Haskell Hierarchical Libraries" \
+         -p "prologue.txt" \
          $HADDOCK_ARGS
 
 # Unhandled Windows help stuff?: