s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

challenges are public now

Browse Source
This commit is contained in:
Filip Gralinski 2016-03-14 21:24:33 +01:00
parent 382f5d959b
commit 6553a25257
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Foundation.hs
View File

@ -107,6 +107,13 @@ instance Yesod App where
isAuthorized HomeR _ = return Authorized isAuthorized HomeR _ = return Authorized
isAuthorized QueryFormR _ = return Authorized isAuthorized QueryFormR _ = return Authorized
isAuthorized (QueryResultsR _) _ = return Authorized isAuthorized (QueryResultsR _) _ = return Authorized
isAuthorized ListChallengesR _ = return Authorized
isAuthorized (ShowChallengeR _) _ = return Authorized
isAuthorized (ChallengeReadmeR _) _ = return Authorized
isAuthorized (ChallengeAllSubmissionsR _) _ = return Authorized
isAuthorized (ChallengeGraphDataR _) _ = return Authorized
-- Default to Authorized for now. -- Default to Authorized for now.
isAuthorized _ _ = isTrustedAuthorized isAuthorized _ _ = isTrustedAuthorized

5
templates/default-layout.hamlet
View File

@ -17,8 +17,13 @@
<li><a href="@{YourAccountR}">_{MsgYourAccount}</a></li> <li><a href="@{YourAccountR}">_{MsgYourAccount}</a></li>
<li><a href="@{AuthR LogoutR}">_{MsgLogOut}</a></li> <li><a href="@{AuthR LogoutR}">_{MsgLogOut}</a></li>
$nothing $nothing
<ul class="nav navbar-nav">
<li><a href="@{HomeR}">_{MsgHome}</a>
<li><a href="@{ListChallengesR}">_{MsgListChallenges}</a>
<ul class="nav navbar-nav navbar-right"> <ul class="nav navbar-nav navbar-right">
<li><a href="@{AuthR LoginR}">log in</a> <li><a href="@{AuthR LoginR}">log in</a>
$maybe msg <- mmsg $maybe msg <- mmsg
<div #message .alert .alert-warning><a href="#" class="close" data-dismiss="alert">&times;</a> #{msg} <div #message .alert .alert-warning><a href="#" class="close" data-dismiss="alert">&times;</a> #{msg}