From 0445d956e9aa70161c8906c890da7b5ff07c9841 Mon Sep 17 00:00:00 2001 From: bigeagle Date: Thu, 26 Nov 2015 18:13:27 +0800 Subject: [PATCH] hackage update --- scripts/hackage.sh | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/scripts/hackage.sh b/scripts/hackage.sh index ba75937..2068274 100755 --- a/scripts/hackage.sh +++ b/scripts/hackage.sh @@ -54,7 +54,7 @@ function hackage_mirror() { echo "building download list" # substract local list from remote list - comm <(sort $remote_pklist) <(sort $local_pklist) -3 | while read pk; do + comm <(sort $remote_pklist) <(sort $local_pklist) -23 | while read pk; do # limit concurrent level bgcount=`jobs | wc -l` while [[ $bgcount -ge 5 ]]; do @@ -63,12 +63,19 @@ function hackage_mirror() { done name="$pk.tar.gz" - if [[ ! -a package/$name ]]; then + if [ ! -a package/$name ]; then must_download "http://hackage.haskell.org/package/$pk/$name" "package/$name" & else echo "skip existed: $name" fi done + + # delete redundanty files + comm <(sort $remote_pklist) <(sort $local_pklist) -13 | while read pk; do + name="$pk.tar.gz" + echo "deleting ${name}" + rm "package/$name" + done cp index.tar.gz 00-index.tar.gz }