From a7254a0140a32a359503041100046bb13092a921 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Wed, 24 Dec 2014 09:07:08 +0200 Subject: [PATCH] Workaround for non-present base --- Handler/UploadStackage.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Handler/UploadStackage.hs b/Handler/UploadStackage.hs index 1c7c19a..f997640 100644 --- a/Handler/UploadStackage.hs +++ b/Handler/UploadStackage.hs @@ -213,6 +213,7 @@ putUploadStackageR = do ] msrc <- storeRead (HackageCabal name version) case msrc of + Nothing | name == "base" -> return () -- workaround in case base isn't uploaded to Hackage Nothing -> invalidArgs ["Unknown Hackage name/version: " ++ tshow (name, version)] Just src -> addFile False name version src