haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-09 09:37:31 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add missing signature

Browse Source
This commit is contained in:
Michael Snoyman 2015-05-14 16:46:13 +03:00
parent 66559c0d9d
commit 1394c82730
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Handler/StackageSdist.hs
View File

@ -25,6 +25,7 @@ getStackageSdistR sname (PNVNameVersion pname version) = do
then packagePage (Just (sname, version)) pname >>= sendResponse then packagePage (Just (sname, version)) pname >>= sendResponse
else redirect $ SnapshotR sname $ StackageSdistR $ PNVNameVersion pname version' else redirect $ SnapshotR sname $ StackageSdistR $ PNVNameVersion pname version'
versionHelper :: SnapName -> PackageName -> Handler Version
versionHelper sname pname = do versionHelper sname pname = do
Entity sid _ <- lookupSnapshot sname >>= maybe notFound return Entity sid _ <- lookupSnapshot sname >>= maybe notFound return
Entity _ sp <- lookupSnapshotPackage sid (toPathPiece pname) >>= maybe notFound return Entity _ sp <- lookupSnapshotPackage sid (toPathPiece pname) >>= maybe notFound return