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