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

Docs fallback

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-24 09:23:38 +02:00
parent a7254a0140
commit 5cb2a6a296
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Handler/StackageSdist.hs
View File

@ -42,12 +42,18 @@ getStackageSdistR slug (PNVNameVersion name version) = packagePage
name (Just version) name (Just version)
(do (do
Entity sid _ <- getBy404 $ UniqueSnapshot slug Entity sid _ <- getBy404 $ UniqueSnapshot slug
selectFirst let loop [] = return Nothing
[ DocsName ==. name loop (x:xs) = do
, DocsVersion ==. version mdocs <- selectFirst x []
, DocsSnapshot ==. Just sid case mdocs of
Nothing -> loop xs
Just _ -> return mdocs
loop
[ [DocsName ==. name, DocsVersion ==. version, DocsSnapshot ==. Just sid]
, [DocsName ==. name, DocsVersion ==. version]
, [DocsName ==. name]
] ]
[]) >>= sendResponse ) >>= sendResponse
addDownload :: Maybe PackageSetIdent addDownload :: Maybe PackageSetIdent
-> Maybe HackageView -> Maybe HackageView