From 8db35e2f83bb3b9190feb9ce0486a14985d792ba Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Thu, 16 Jun 2016 15:06:26 +0200
Subject: [PATCH] Ignore non-present packages

---
 Handler/Haddock.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Handler/Haddock.hs b/Handler/Haddock.hs
index 3774fef..716b6c8 100644
--- a/Handler/Haddock.hs
+++ b/Handler/Haddock.hs
@@ -83,7 +83,7 @@ redirectWithVersion slug rest =
             Entity sid _ <- lookupSnapshot slug >>= maybe notFound return
             mversion <- getPackageVersionBySnapshot sid pkg
             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
                     return (Just (HaddockR slug [pkg <> "-" <> version, file]))
         _ -> return Nothing