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