Merge branch 'PR/add-debug-info-command'

This commit is contained in:
Julian Ospald 2018-10-17 21:07:54 +08:00
commit 5a18896d7a
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
2 changed files with 59 additions and 0 deletions

View File

@ -47,4 +47,6 @@ edo ghcup self-update
edo ghcup show
edo ghcup debug-info
edo ghc --version

57
ghcup
View File

@ -140,6 +140,7 @@ SUBCOMMANDS:
self-update Update this script in-place
rm Remove an already installed GHC
install-cabal Install cabal-install
debug-info Print debug info (e.g. detected system/distro)
DISCUSSION:
ghcup installs the Glasgow Haskell Compiler from the official
@ -317,6 +318,28 @@ EXAMPLE:
exit 1
}
# @FUNCTION: debug_info_usage
# @DESCRIPTION:
# Print the help message for 'ghcup debug-info' to STDERR
# and exit the script with status code 1.
debug_info_usage() {
(>&2 echo "ghcup-debug-info
Print debug info (e.g. detected system/distro)
USAGE:
${SCRIPT} debug-info
FLAGS:
-h, --help Prints help information
DISCUSSION:
Prints debug information, e.g. detected system architecture,
distribution, version, as well as script variables. This
is mainly useful for debugging purposes.
")
exit 1
}
@ -1002,6 +1025,30 @@ Also check https://ghc.haskell.org/trac/ghc/wiki/Building/Preparation/Linux for
}
###############################
#--[ Subcommand debug-info ]--#
###############################
# @FUNCTION: print_debug_info
# @DESCRIPTION:
# Print debug info (e.g. detected system/distro).
print_debug_info() {
echo "Script version: ${VERSION}"
echo
echo "Script variables:"
echo " GHC install location: ${GHC_LOCATION}"
echo " Binary install location: ${BIN_LOCATION}"
echo " Downloader: ${DOWNLOADER} ${DOWNLOADER_OPTS} <url>"
echo " Script update url: ${SCRIPT_UPDATE_URL}"
echo " GHC download baseurl: ${GHC_DOWNLOAD_BASEURL}"
echo " Known good cabal version: ${KNOWN_GOOD_CABAL}"
echo
echo "Detected system information:"
echo " Architecture: $(get_arch)"
echo " Distribution: $(get_distro_name)"
echo " Distro version: $(get_distro_ver)"
}
#######################
@ -1144,6 +1191,16 @@ while [ $# -gt 0 ] ; do
[ "${BOOTSTRAP_GHC}" ] || compile_usage
compile_ghc "${GHC_VER}" "${BOOTSTRAP_GHC}" "${BUILD_CONFIG}"
break;;
debug-info)
shift 1
while [ $# -gt 0 ] ; do
case $1 in
-h|--help) debug_info_usage;;
*) debug_info_usage;;
esac
done
print_debug_info
break;;
*) usage;;
esac
break;;