From 9c52d4b6aa8e98f768126b2e869a669661393437 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Tue, 14 Jun 2016 16:50:12 +0200
Subject: [PATCH] Put back track call

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

diff --git a/Handler/Haddock.hs b/Handler/Haddock.hs
index 1f9910e..3774fef 100644
--- a/Handler/Haddock.hs
+++ b/Handler/Haddock.hs
@@ -117,6 +117,6 @@ nav =
                 close = [EventEndElement name]
 
 getHaddockBackupR :: [Text] -> Handler ()
-getHaddockBackupR rest = redirect $ concat
+getHaddockBackupR rest = track "Handler.Haddock.getHaddockBackupR" $  redirect $ concat
     $ "https://s3.amazonaws.com/haddock.stackage.org"
     : map (cons '/') rest