From 1394c82730c7ff831380396b65a4c621f5d99277 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Thu, 14 May 2015 16:46:13 +0300 Subject: [PATCH] Add missing signature --- Handler/StackageSdist.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Handler/StackageSdist.hs b/Handler/StackageSdist.hs index 4e8f132..d939fae 100644 --- a/Handler/StackageSdist.hs +++ b/Handler/StackageSdist.hs @@ -25,6 +25,7 @@ getStackageSdistR sname (PNVNameVersion pname version) = do then packagePage (Just (sname, version)) pname >>= sendResponse else redirect $ SnapshotR sname $ StackageSdistR $ PNVNameVersion pname version' +versionHelper :: SnapName -> PackageName -> Handler Version versionHelper sname pname = do Entity sid _ <- lookupSnapshot sname >>= maybe notFound return Entity _ sp <- lookupSnapshotPackage sid (toPathPiece pname) >>= maybe notFound return