#!/bin/bash
# Bootstraps from an empty cabal (plus apt-get build-dep git-annex)
# to all the necessary haskell packages being installed.
# Some packages are patched for wider portability.
#
# The cabal.config is used to pin the haskell packages to the last
# versions that have been gotten working. To update, delete the
# cabal.config, run this script with an empty cabal and fix up the broken
# patches, and then use cabal freeze to generate a new cabal.config.

set -e

if [ ! -d haskell-patches ]; then
	cd standalone/linux
fi

cabalopts="$@"

cabalinstall () {
	echo cabal install -j1 "$@" "$cabalopts"
	eval cabal install -j1 "$@" "$cabalopts"
}

patched () {
	pkg=$1
	ver=$2
        if [ -z "$ver" ]; then
                ver="$(grep " $pkg " ../cabal.config | cut -d= -f 3 | sed 's/,$//')"
        fi
        if [ -z "$ver" ]; then
                cabal unpack --pristine $pkg
        else
                cabal unpack --pristine $pkg-$ver
        fi
	cd $pkg*
	git init
	git config user.name dummy
	git config user.email dummy@example.com
	git add .
	git commit -m "pre-patched state of $pkg"
	ln -sf ../../cabal.config
	for patch in ../../haskell-patches/${pkg}_* ../../../no-th/haskell-patches/${pkg}_*; do
		if [ -e "$patch" ]; then
			echo trying $patch
			if ! patch -p1 < $patch; then
				echo "failed to apply $patch"
				echo "please resolve this, replace the patch with a new version, and exit the subshell to continue"
				$SHELL
			fi
		fi
	done
	cabalinstall
	rm -f cabal.config
	cd ..
	rm -rf $pkg*
}

installgitannexdeps () {
	pushd ../..
	ln -sf standalone/linux/cabal.config
	echo cabal install --only-dependencies "$@"
	cabal install -j1 --only-dependencies "$@"
	rm -f cabal.config
	popd
}

install_pkgs () {
	rm -rf tmp
	mkdir tmp
	cd tmp

	patched network

	cd ..

	installgitannexdeps
}

cabal update

# Some packages fail to install in a non unicode locale.
LANG=C.UTF-8
export LANG

install_pkgs