# Generate a Haddock index page for all packages visible to the current GHC { lib, writers, coreutils, gnugrep, gnused, graphviz, }: writers.writeBashBin "nix-haddock-index" '' set -efux if test -z "''${NIX_GHC-}"; then NIX_GHC=$(${lib.getExe' coreutils "readlink"} -f "$(type -P ghc)") fi if ! echo $NIX_GHC | ${lib.getExe gnugrep} -q '^/nix/store/'; then printf '%s: error: unsupported GHC executable path (not in Nix store): %q\n' \ "$0" \ "$NIX_GHC" \ >&2 exit 1 fi NIX_GHC_PREFIX=$(${lib.getExe' coreutils "dirname"} "$(${lib.getExe' coreutils "dirname"} "$NIX_GHC")") NIX_GHC_DOCDIR=$NIX_GHC_PREFIX/share/doc/ghc/html main() { hash=$(echo $NIX_GHC_PREFIX | ${lib.getExe gnused} -n 's|^/nix/store/\([a-z0-9]\+\).*|\1|p') title="Haddock index for $NIX_GHC_PREFIX" header=$( printf 'Haddock index for %s\n' \ $NIX_GHC_PREFIX \ $NIX_GHC_PREFIX \ ) suffix=''${hash:+-$hash} index_file=/tmp/haddock$suffix-index.html svg_file=/tmp/haddock$suffix.svg eval "$( echo 'gen_index() {' echo ' html_head' "$NIX_GHC_PREFIX"/bin/ghc-pkg dump | ${lib.getExe gnused} -n ' s/^---$/ reset/p s/^\(name\|version\):\s*\([-A-Za-z0-9_.]\+\)$/ \1=\2/p s/^haddock-html:\s*\([-A-Za-z0-9_./]\+\)$/ haddock_html \1/p ' echo ' html_foot' echo '}' )" gen_index > $index_file "$NIX_GHC_PREFIX"/bin/ghc-pkg dot | ${lib.getExe' graphviz "tred"} | ${lib.getExe' graphviz "dot"} -Tsvg | ${lib.getExe gnused} ' s/ $svg_file echo $index_file } reset() { unset name version } haddock_html() { printf '
  • ' printf '%s' "$1" "$name-$version" printf '
    • \n' } html_head() { printf '\n' printf '%s\n' "$title" printf '\n' \ "$NIX_GHC_DOCDIR/libraries/ocean.css" printf '

    %s

    \n' "$header" printf '\n' printf 'graph\n' "$svg_file" } main "$@" ''