diff --git a/cabal.project b/cabal.project index a9a2c66..63784bc 100644 --- a/cabal.project +++ b/cabal.project @@ -1,3 +1,5 @@ packages: ./ghup.cabal with-compiler: ghc-8.6.5 + +index-state: 2020-01-31T21:11:24Z diff --git a/cabal.project.freeze b/cabal.project.freeze index da7b1a3..c0e9623 100644 --- a/cabal.project.freeze +++ b/cabal.project.freeze @@ -54,6 +54,7 @@ constraints: any.Cabal ==3.0.0.0, any.cryptonite ==0.26, cryptonite -check_alignment +integer-gmp -old_toolchain_inliner +support_aesni +support_deepseq -support_pclmuldq +support_rdrand -support_sse, any.data-default-class ==0.1.2.0, + any.data-default-instances-base ==0.1.0.1, any.dates ==0.2.3.0, any.deepseq ==1.4.4.0, any.deepseq-generics ==0.2.0.0, @@ -134,6 +135,7 @@ constraints: any.Cabal ==3.0.0.0, streamly -benchmark -debug -dev -examples -examples-sdl -has-llvm -inspection -no-charts -no-fusion -streamk, any.streamly-bytestring ==0.1.0.1, any.syb ==0.7.1, + any.table-layout ==0.8.0.5, any.tagged ==0.8.6, tagged +deepseq +transformers, any.template-haskell ==2.14.0.0, diff --git a/update-index-state.sh b/update-index-state.sh new file mode 100755 index 0000000..356f6d5 --- /dev/null +++ b/update-index-state.sh @@ -0,0 +1,66 @@ +#!/usr/bin/env bash + +set -eu + +status_message() { + printf "\\033[0;32m%s\\033[0m\\n" "$1" +} + +error_message() { + printf "\\033[0;31m%s\\033[0m\\n" "$1" +} + +SCRIPTPATH="$( cd "$(dirname "$0")" ; pwd -P )" +CACHE_LOCATION="${HOME}/.cabal/packages/hackage.haskell.org/01-index.cache" + +if [ ! -f "${CACHE_LOCATION}" ] ; then + error_message "${CACHE_LOCATION} does not exist, did you run 'cabal update'?" + exit 1 +fi + +if [ ! -f "${SCRIPTPATH}/cabal.project" ] ; then + error_message "Could not find ${SCRIPTPATH}/cabal.project, skipping index state update." + exit 3 +fi + +cabal v2-update + +arch=$(getconf LONG_BIT) + +case "${arch}" in +32) + byte_size=4 + magic_word="CABA1002" + ;; +64) + byte_size=8 + magic_word="00000000CABA1002" + ;; +*) + error_message "Unknown architecture (long bit): ${arch}" + exit 2 + ;; +esac + +# This is the logic to parse the binary format of 01-index.cache. +# The first word is a magic 'caba1002', the second one is the timestamp in unix epoch. +# Better than copying the cabal-install source code. +if [ "$(xxd -u -p -l${byte_size} -s 0 "${CACHE_LOCATION}")" != "${magic_word}" ] ; then + error_message "Magic word does not match!" + exit 4 +fi +cache_timestamp=$(echo "ibase=16;obase=A;$(xxd -u -p -l${byte_size} -s ${byte_size} "${CACHE_LOCATION}")" | bc) + +# If we got junk from the binary file, this should fail. +cache_date=$(date --utc --date "@${cache_timestamp}" "+%FT%TZ") + + +status_message "Updating index state in ${SCRIPTPATH}/cabal.project" + +if grep -q "^index-state: .*" "${SCRIPTPATH}/cabal.project" ; then + awk '/index-state:/ {gsub(/.*/, "index-state: '${cache_date}'")}; { print }' "${SCRIPTPATH}/cabal.project" > "${SCRIPTPATH}/cabal.project.tmp" + mv "${SCRIPTPATH}/cabal.project.tmp" "${SCRIPTPATH}/cabal.project" +else + printf "index-state: %s\n" "${cache_date}" >> "${SCRIPTPATH}/cabal.project" +fi +