This goes with the patch for #1839, #1463

[ghc-hetmet.git] / libraries / gen_contents_index

diff --git a/libraries/gen_contents_index b/libraries/gen_contents_index
index 7f7dc70..4ddb58a 100644 (file)
--- a/libraries/gen_contents_index
+++ b/libraries/gen_contents_index
@@ -7,53 +7,23 @@ NAMES=
 
 case $* in
 --inplace)
-    GHC_PKG=../utils/ghc-pkg/ghc-pkg-inplace
-    for DIR in */
-    do
-        NAME=`echo "$DIR" | sed 's#/$##'`
-        HADDOCK_FILE=$NAME/dist/doc/html/$NAME/$NAME.haddock
-        if [ -f $HADDOCK_FILE ]
-        then
-            HADDOCK_ARGS="$HADDOCK_ARGS --read-interface=$NAME,$HADDOCK_FILE"
-            NAMES="$NAMES $NAME"
-        fi
-    done
+    HADDOCK_FILES=`ls -1 */dist/doc/html/*/*.haddock | sort`
     ;;
 *)
     HADDOCK_FILES=`ls -1 */*.haddock | sort`
-    for HADDOCK_FILE in $HADDOCK_FILES
-    do
-        NAME=`echo "$HADDOCK_FILE" | sed "s#/.*##"`
-        HADDOCK_ARGS="$HADDOCK_ARGS --read-interface=$NAME,$HADDOCK_FILE"
-        NAMES="$NAMES $NAME"
-    done
     ;;
 esac
 
-# Automagically create the prologue for the combined index via a
-# header, the package prologues (in alphabetical order of the
-# packages) and a footer.
-{
-    cat libraries-header.txt
-    echo
-    # Hack to find out if we're in a build tree or installed docs
-    for NAME in $NAMES
-    do
-        if [ "$NAME" != haskell98 ]
-        then
-            echo "[@${NAME}@]"
-            grep -v '^ *$$' "$NAME"/prologue.txt
-            echo
-        fi
-    done
-    cat libraries-footer.txt
-    echo
-} > libraries.txt
+for HADDOCK_FILE in $HADDOCK_FILES
+do
+    NAME=`echo "$HADDOCK_FILE" | sed 's#/.*##'`
+    HADDOCK_ARGS="$HADDOCK_ARGS --read-interface=$NAME,$HADDOCK_FILE"
+    NAMES="$NAMES $NAME"
+done
 
 # Now create the combined contents and index pages
 haddock --gen-index --gen-contents -o . \
         -t "Haskell Hierarchical Libraries" \
-        -p libraries.txt \
         $HADDOCK_ARGS
 
 # Unhandled Windows help stuff?: