Commit bdf2c844 authored by Bryan Richter's avatar Bryan Richter

Add Welcome

parent 72e95872
--
-- ### PAGES FOR ALPHA
-- ## Static, informational pages
--
--
-- ## The "simple" pages
--
/welcome WelcomeR GET
/terms TermsR GET
/privacy PrivacyR GET
/trademarks TrademarksR GET
/donate DonateR GET
/merchandise MerchandiseR GET
/sponsors SponsorsR GET
/js-licenses JsLicensesR GET
/honor-pledge HonorPledgeR GET POST
/assets AssetsR GET
/how-it-works HowItWorksR:
/ IntroR GET
......@@ -12,21 +19,12 @@
/network-effect NetworkEffectR GET
/sustainable-funding SustainableFundingR GET
/co-op CoOpR GET
/about AboutR:
/ AboutHomeR GET
/contact ContactR GET
/team TeamR GET
/press PressR GET
/project-signup PSignupR GET
/terms TermsR GET
/privacy PrivacyR GET
/trademarks TrademarksR GET
/donate DonateR GET
/merchandise MerchandiseR GET
/sponsors SponsorsR GET
/js-licenses JsLicensesR GET
/honor-pledge HonorPledgeR GET POST
/assets AssetsR GET
--
-- ## Search
......
......@@ -20,6 +20,11 @@ import Model.User
)
import View.User (renderUser, createUserForm)
getWelcomeR :: Handler Html
getWelcomeR = defaultLayoutNew "homepage" $ do
setTitle "Snowdrift.coop — Free the Commons"
$(widgetFile "homepage")
getSearchR :: Handler Html
getSearchR = do
q <- lookupGetParam "q"
......
......@@ -11,7 +11,7 @@ snowdriftMarkdownField = Field
[whamlet|
<div .markdown_label>
Use
<a href=@{MarkdownTutorialR} target="_blank">
<a href=# target="_blank">
Markdown syntax
<div .markdown_label>
Remember to follow the
......
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