From 6d4f9e03fa524be024b71be19697ce295d1b5367 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 13 Nov 2016 08:40:07 +0200
Subject: [PATCH] Haddock redirect for incomplete snapshot names #212

---
 Handler/Haddock.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Handler/Haddock.hs b/Handler/Haddock.hs
index b09b51e..84cf43a 100644
--- a/Handler/Haddock.hs
+++ b/Handler/Haddock.hs
@@ -73,6 +73,10 @@ redirectWithVersion slug rest =
         _ -> return Nothing
 
 getHaddockBackupR :: [Text] -> Handler ()
+getHaddockBackupR (snap':rest)
+  | Just branch <- fromPathPiece snap' = track "Handler.Haddock.getHaddockBackupR" $ do
+      snapName <- newestSnapshot branch >>= maybe notFound pure
+      redirect $ HaddockR snapName rest
 getHaddockBackupR rest = track "Handler.Haddock.getHaddockBackupR" $  redirect $ concat
     $ "https://s3.amazonaws.com/haddock.stackage.org"
     : map (cons '/') rest