haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Install page redirects to haskell-lang get-started

Browse Source
This commit is contained in:
Michael Snoyman 2016-11-20 12:15:01 +02:00
parent a765bc95f3
commit aa0fe190ac
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Data/WebsiteContent.hs
View File

@ -13,7 +13,6 @@ import Data.Yaml
data WebsiteContent = WebsiteContent data WebsiteContent = WebsiteContent
{ wcHomepage :: !Html { wcHomepage :: !Html
, wcAuthors :: !Html , wcAuthors :: !Html
, wcInstall :: !Html
, wcOlderReleases :: !Html , wcOlderReleases :: !Html
, wcGhcLinks :: !GhcLinks , wcGhcLinks :: !GhcLinks
, wcStackReleases :: ![StackRelease] , wcStackReleases :: ![StackRelease]
@ -23,7 +22,6 @@ loadWebsiteContent :: FilePath -> IO WebsiteContent
loadWebsiteContent dir = do loadWebsiteContent dir = do
wcHomepage <- readHtml "homepage.html" wcHomepage <- readHtml "homepage.html"
wcAuthors <- readHtml "authors.html" wcAuthors <- readHtml "authors.html"
wcInstall <- readMarkdown "install.md"
wcOlderReleases <- readHtml "older-releases.html" `catchIO` wcOlderReleases <- readHtml "older-releases.html" `catchIO`
\_ -> readMarkdown "older-releases.md" \_ -> readMarkdown "older-releases.md"
wcGhcLinks <- readGhcLinks $ dir </> "stackage-cli" wcGhcLinks <- readGhcLinks $ dir </> "stackage-cli"

4
Handler/Home.hs
View File

@ -52,8 +52,8 @@ snapshotsPerPage = 8
getAuthorsR :: Handler Html getAuthorsR :: Handler Html
getAuthorsR = contentHelper "Library Authors" wcAuthors getAuthorsR = contentHelper "Library Authors" wcAuthors
getInstallR :: Handler Html getInstallR :: Handler ()
getInstallR = contentHelper "Haskell Installation Instructions" wcInstall getInstallR = redirect ("https://haskell-lang.org/get-started" :: Text)
getOlderReleasesR :: Handler Html getOlderReleasesR :: Handler Html
getOlderReleasesR = contentHelper "Older Releases" wcOlderReleases getOlderReleasesR = contentHelper "Older Releases" wcOlderReleases