From e663fc4a63dca7d508cadb5bdf5c4babe68f891e Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Thu, 13 Aug 2015 11:34:05 +0300 Subject: [PATCH] Redirect /download to /install (closes #99) --- Handler/Download.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Handler/Download.hs b/Handler/Download.hs index 120708a..ed367ec 100644 --- a/Handler/Download.hs +++ b/Handler/Download.hs @@ -33,9 +33,7 @@ currentlySupported Linux64 = True currentlySupported _ = False getDownloadR :: Handler Html -getDownloadR = defaultLayout $ do - setTitle "Download" - $(widgetFile "download") +getDownloadR = redirectWith status301 InstallR getDownloadSnapshotsJsonR :: Handler Value getDownloadSnapshotsJsonR = getDownloadLtsSnapshotsJsonR