Commit 1adccf74 authored by Bryan Richter's avatar Bryan Richter

Create some legacy-route redirects

parent 2e20ef66
......@@ -92,6 +92,13 @@
/project-signup-form PSignupFormR GET POST
--
-- ## Legacy links (just redirects)
--
/tou LegacyTouR GET
/priv LegacyPrivR GET
--
-- ### EXISTING STUFF (NOT NEW FOR ALPHA)
--
......
......@@ -3,6 +3,8 @@ module Handler.Simple where
import Import
import Network.HTTP.Types.Status (movedPermanently301)
import Handler.TH
import Handler.Utils
import Widgets.Doc
......@@ -19,7 +21,7 @@ getIntroHomeR,
getPSignupR,
getTeamR,
getPressR
:: Handler Html
:: Handler Html
getIntroHomeR = $(simpleHandler "intro/home" "Intro")
getShareableR = $(simpleHandler "intro/shareable-works" "Shareable Works")
......@@ -42,3 +44,11 @@ getTrademarksR :: Handler Html
getTrademarksR = defaultLayout $ do
snowdriftTitle "Trademarks"
renderDoc "Trademarks"
-- | Permanent redirects for legacy urls that may still be referenced
-- outside of the type-safe project
getLegacyTouR,
getLegacyPrivR
:: Handler Html
getLegacyTouR = redirectWith movedPermanently301 TermsR
getLegacyPrivR = redirectWith movedPermanently301 PrivacyR
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment