From d1ce84317dbf697fb057628808e4b1aa9e79f13f Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Thu, 17 Apr 2014 20:48:12 +0300 Subject: [PATCH] A little more progress --- Handler/UploadStackage.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/Handler/UploadStackage.hs b/Handler/UploadStackage.hs index c43202f..715cc4a 100644 --- a/Handler/UploadStackage.hs +++ b/Handler/UploadStackage.hs @@ -134,6 +134,12 @@ putUploadStackageR = do , Just (name, version) <- parseName (fpToText base) -> do ident <- lsIdent <$> get sourceLazy lbs $$ storeWrite (CustomSdist ident name version) + update $ concat + [ "Extracting cabal file for custom tarball: " + , toPathPiece name + , "-" + , toPathPiece version + ] cabalLBS <- extractCabal lbs name version addFile True name version $ sourceLazy cabalLBS _ -> return ()