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

Ignore non-present packages

Browse Source
This commit is contained in:
Chris Done 2016-06-16 15:06:26 +02:00
parent 9c52d4b6aa
commit 8db35e2f83
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Handler/Haddock.hs
View File

@ -83,7 +83,7 @@ redirectWithVersion slug rest =
Entity sid _ <- lookupSnapshot slug >>= maybe notFound return Entity sid _ <- lookupSnapshot slug >>= maybe notFound return
mversion <- getPackageVersionBySnapshot sid pkg mversion <- getPackageVersionBySnapshot sid pkg
case mversion of case mversion of
Nothing -> error "That package is not part of this snapshot." Nothing -> return Nothing -- error "That package is not part of this snapshot."
Just version -> do Just version -> do
return (Just (HaddockR slug [pkg <> "-" <> version, file])) return (Just (HaddockR slug [pkg <> "-" <> version, file]))
_ -> return Nothing _ -> return Nothing