git.gnu.io has moved to IP address 209.51.188.249 -- please double check where you are logging in.

Review feedback

parent bdf2c844
......@@ -11,7 +11,6 @@
/sponsors SponsorsR GET
/js-licenses JsLicensesR GET
/honor-pledge HonorPledgeR GET POST
/assets AssetsR GET
/how-it-works HowItWorksR:
/ IntroR GET
......@@ -50,9 +49,9 @@
-- Note that for logged-out users, / ("HomeR") is the simple welcome page.
/ HomeR GET
/dashboard UDashboardR GET
/transactions UTransactionsR GET
/pledges UPledgesR GET
/roles URolesR GET
--
-- ## Browsing projects, or a particular project
......@@ -63,12 +62,6 @@
/p/#ProjectHandle/updates PUpdatesR GET
/p/#ProjectHandle/transactions PTransactionsR GET
--
-- ## Browsing a particular user (may need fleshing out?)
--
/u/#UserHandle UserR GET POST
-- Yesod jibber jabber
/static StaticR Static appStatic
/favicon.ico FaviconR GET
......@@ -89,6 +82,7 @@
-- User
/u UsersR GET
/u/#UserHandle UserR GET
/u/#UserId/balance UserBalanceR GET POST
/u/#UserId/change-passphrase UserChangePassphraseR GET POST
/u/#UserId/delete DeleteUserR GET POST
......
......@@ -2,16 +2,14 @@ module Handler.HonorPledge where
import Import
import Handler.Utils
import Handler.TH
import Model.User (establishUserDB, curUserIsEligibleEstablish)
getHonorPledgeR :: Handler Html
getHonorPledgeR = do
is_elig <- curUserIsEligibleEstablish
muser <- maybeAuth
defaultLayout $ do
snowdriftTitle "Honor Pledge"
$(widgetFile "honor-pledge")
$(widget "honor-pledge" "Honor Pledge")
postHonorPledgeR :: Handler Html
postHonorPledgeR = do
......
......@@ -69,9 +69,9 @@ dashboardNav = do
$(widgetFile "dashboard/nav")
getHomeR,
getUDashboardR,
getUTransactionsR,
getUPledgesR,
getURolesR,
getUEditR
:: Handler Html
......@@ -86,15 +86,15 @@ getHomeR = do
$(widget "dashboard/overview" "Dashboard"))
u
getUDashboardR = do
user <- requireAuth
$(widget "dashboard/overview" "Dashboard")
getUTransactionsR = do
user <- requireAuth
$(widget "dashboard/transactions" "Transactions")
getUPledgesR = do
user <- requireAuth
$(widget "dashboard/pledges" "Pledges")
getURolesR = do
user <- requireAuth
$(widget "dashboard/roles" "My Project Roles")
getUEditR = do
user <- requireAuth
$(widget "dashboard/edit-profile" "Edit Profile")
......
......@@ -19,8 +19,7 @@ getIntroR,
getPressR,
getSponsorsR,
getDonateR,
getMerchandiseR,
getAssetsR
getMerchandiseR
:: Handler Html
getIntroR = $(widget "how-it-works/intro" "Intro")
getFloR = $(widget "how-it-works/flo" "FLO")
......@@ -37,7 +36,6 @@ getPressR = $(widget "press" "Press")
getSponsorsR = $(widget "sponsors" "Sponsors")
getDonateR = $(widget "donate" "Donate")
getMerchandiseR = $(widget "merchandise" "Merchandise")
getAssetsR = $(widget "assets" "Assets")
-- * TODO: Convert these.
getTermsR,
......
......@@ -17,7 +17,7 @@
<a href=#>
Longer explanation
<div .homep-link>
<a href=#>
<a href=@{AboutR PressR}>
Press
<div .homep-link>
<a href=@{WhoR "snowdrift"}>
......
^{toBeWrittenNotice}
<p>Placeholder for a page for assets like logo files and such.
......@@ -5,7 +5,5 @@
<a href=@{UTransactionsR}>Transactions
<li>
<a href=@{UPledgesR}>Pledges
<li>
<a href=@{URolesR}>Project Roles
<li>
<a href=@{EditUserR uid}>Edit profile
^{toBeWrittenNotice}
^{dashboardNav}
<p>Hi #{userDisplayName user}, this is a placeholder for viewing your memberships.
.honor-pledge
.pledge
background: #EEE
font-weight: bold
margin: 1em
......
<h1 .text-center>The Snowdrift.coop honor pledge
<h1>The Snowdrift.coop honor pledge
<p .honor-pledge-description>
After accepting the following pledge, users gain permissions including the
ability to edit wiki pages and post discussion comments without moderator
approval.
<div .honor-pledge>
<div .pledge>
<p>
"I will participate at Snowdrift.coop with honesty and good faith.
I will follow the
......@@ -26,7 +26,7 @@
$maybe _ <- muser
$if is_elig
<form .text-center action=@{HonorPledgeR} method=post>
<form action=@{HonorPledgeR} method=post>
<input type="submit" value="Accept">
$nothing
......
......@@ -21,4 +21,3 @@
<li>
<a href=#>
Our Project Requirements
......@@ -8,7 +8,7 @@
and have chosen to participate in testing during our alpha phase.
If your project plans to use the site when we launch, and you'd like to
participate in our testing now, please
contact&nbsp;us
<a href=@{AboutR ContactR}>contact&nbsp;us
to discuss further.
$forall Entity _ project <- projects
......
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