From aa0fe190ac2129cc08c5208039a1750fb46312e8 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 20 Nov 2016 12:15:01 +0200
Subject: [PATCH] Install page redirects to haskell-lang get-started

---
 Data/WebsiteContent.hs | 2 --
 Handler/Home.hs        | 4 ++--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/Data/WebsiteContent.hs b/Data/WebsiteContent.hs
index f7c6ab4..f4d30b4 100644
--- a/Data/WebsiteContent.hs
+++ b/Data/WebsiteContent.hs
@@ -13,7 +13,6 @@ import Data.Yaml
 data WebsiteContent = WebsiteContent
     { wcHomepage :: !Html
     , wcAuthors  :: !Html
-    , wcInstall  :: !Html
     , wcOlderReleases :: !Html
     , wcGhcLinks :: !GhcLinks
     , wcStackReleases :: ![StackRelease]
@@ -23,7 +22,6 @@ loadWebsiteContent :: FilePath -> IO WebsiteContent
 loadWebsiteContent dir = do
     wcHomepage <- readHtml "homepage.html"
     wcAuthors <- readHtml "authors.html"
-    wcInstall <- readMarkdown "install.md"
     wcOlderReleases <- readHtml "older-releases.html" `catchIO`
                     \_ -> readMarkdown "older-releases.md"
     wcGhcLinks <- readGhcLinks $ dir </> "stackage-cli"
diff --git a/Handler/Home.hs b/Handler/Home.hs
index c2278b4..ede3d18 100644
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@@ -52,8 +52,8 @@ snapshotsPerPage = 8
 getAuthorsR :: Handler Html
 getAuthorsR = contentHelper "Library Authors" wcAuthors
 
-getInstallR :: Handler Html
-getInstallR = contentHelper "Haskell Installation Instructions" wcInstall
+getInstallR :: Handler ()
+getInstallR = redirect ("https://haskell-lang.org/get-started" :: Text)
 
 getOlderReleasesR :: Handler Html
 getOlderReleasesR = contentHelper "Older Releases" wcOlderReleases