haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-25 10:21:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

A little more progress

Browse Source
This commit is contained in:
Michael Snoyman 2014-04-17 20:48:12 +03:00
parent 8ae086ae08
commit d1ce84317d
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Handler/UploadStackage.hs
View File

@ -134,6 +134,12 @@ putUploadStackageR = do
, Just (name, version) <- parseName (fpToText base) -> do , Just (name, version) <- parseName (fpToText base) -> do
ident <- lsIdent <$> get ident <- lsIdent <$> get
sourceLazy lbs $$ storeWrite (CustomSdist ident name version) sourceLazy lbs $$ storeWrite (CustomSdist ident name version)
update $ concat
[ "Extracting cabal file for custom tarball: "
, toPathPiece name
, "-"
, toPathPiece version
]
cabalLBS <- extractCabal lbs name version cabalLBS <- extractCabal lbs name version
addFile True name version $ sourceLazy cabalLBS addFile True name version $ sourceLazy cabalLBS
_ -> return () _ -> return ()