From 316ed2c220325bae5b6edfda932a3b48797dd819 Mon Sep 17 00:00:00 2001
From: Thomas Dziedzic <gostrc@gmail.com>
Date: Wed, 20 Jun 2012 21:22:44 -0500
Subject: [PATCH] Add --verbose and --help flags to gen_contents_index
Fixes http://hackage.haskell.org/trac/ghc/ticket/5992
---
libraries/gen_contents_index | 37 ++++++++++++++++++++++++++++++-------
1 file changed, 30 insertions(+), 7 deletions(-)
diff --git a/libraries/gen_contents_index b/libraries/gen_contents_index
index c8d82c8..dde6fbe 100644
|
a
|
b
|
|
| 2 | 2 | |
| 3 | 3 | set -e |
| 4 | 4 | |
| | 5 | USAGE="Usage: $0 [--inplace] [--verbose] [--help]" |
| | 6 | INPLACE= |
| | 7 | VERBOSE= |
| | 8 | |
| 5 | 9 | HADDOCK_ARGS= |
| 6 | 10 | |
| 7 | | case $* in |
| 8 | | --inplace) |
| | 11 | while [ "$#" -ne "0" ] |
| | 12 | do |
| | 13 | case "$1" in |
| | 14 | --inplace) |
| | 15 | INPLACE=yes |
| | 16 | ;; |
| | 17 | --verbose) |
| | 18 | VERBOSE=yes |
| | 19 | ;; |
| | 20 | --help) |
| | 21 | echo "$USAGE" |
| | 22 | exit 0 |
| | 23 | ;; |
| | 24 | esac |
| | 25 | |
| | 26 | shift |
| | 27 | done |
| | 28 | |
| | 29 | if [ -n "$INPLACE" ] |
| | 30 | then |
| 9 | 31 | HADDOCK=../inplace/bin/haddock |
| 10 | 32 | for REPO in `grep '^libraries/[^ ]* *- ' ../packages | sed -e 's#libraries/##' -e 's/ .*//'` |
| 11 | 33 | do |
| … |
… |
|
| 32 | 54 | fi |
| 33 | 55 | done |
| 34 | 56 | done |
| 35 | | ;; |
| 36 | | *) |
| | 57 | else |
| 37 | 58 | HADDOCK=../../../../../bin/haddock |
| 38 | 59 | # We don't want the GHC API to swamp the index |
| 39 | 60 | HADDOCK_FILES=`ls -1 */*.haddock | grep -v '/ghc\.haddock' | sort` |
| … |
… |
|
| 43 | 64 | HADDOCK_ARG="--read-interface=${NAME_VERSION},$HADDOCK_FILE" |
| 44 | 65 | HADDOCK_ARGS="$HADDOCK_ARGS $HADDOCK_ARG" |
| 45 | 66 | done |
| 46 | | ;; |
| 47 | | esac |
| | 67 | fi |
| 48 | 68 | |
| 49 | 69 | # Now create the combined contents and index pages |
| 50 | | echo $HADDOCK_ARGS |
| | 70 | if [ -n "$VERBOSE" ] |
| | 71 | then |
| | 72 | echo $HADDOCK_ARGS |
| | 73 | fi |
| 51 | 74 | $HADDOCK --gen-index --gen-contents -o . \ |
| 52 | 75 | -t "Haskell Hierarchical Libraries" \ |
| 53 | 76 | -p "prologue.txt" \ |
