#!/bin/sh
set -eu

if [ -z "${1:-}" ]; then
	guix time-machine --fallback -C aux/guix/pinned-channels.scm -- \
		environment --fallback -m aux/guix/manifest.scm
elif [ "$1" = '-p' ]; then
	guix time-machine --fallback -C aux/guix/pinned-channels.scm -- \
		environment --fallback -m aux/guix/manifest.scm --pure -C
elif [ "$1" = '-C' ]; then
	guix time-machine --fallback -C aux/guix/pinned-channels.scm -- \
		pack -f docker -S/bin=bin -m aux/guix/manifest.scm -v3
else
	guix time-machine --fallback -C aux/guix/pinned-channels.scm -- \
		environment --fallback -m aux/guix/manifest.scm --pure -C \
			-- sh -c "$@"
fi