filipg/gonito
1
0
Fork 1
Code Issues 1 Pull Requests Releases Wiki Activity

show repo URL/branch

Browse Source
This commit is contained in:
Filip Gralinski 2015-09-28 17:45:10 +02:00
parent 2b13573881
commit f6dce92d8d
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/ShowChallenge.hs
View File

@ -13,7 +13,8 @@ import Handler.Shared
getShowChallengeR :: Text -> Handler Html getShowChallengeR :: Text -> Handler Html
getShowChallengeR name = do getShowChallengeR name = do
(Entity _ challenge) <- runDB $ getBy404 $ UniqueName name (Entity _ challenge) <- runDB $ getBy404 $ UniqueName name
challengeLayout True challenge (showChallengeWidget challenge) Just repo <- runDB $ get $ challengePublicRepo challenge
challengeLayout True challenge (showChallengeWidget challenge repo)
getChallengeReadmeR :: Text -> Handler Html getChallengeReadmeR :: Text -> Handler Html
getChallengeReadmeR name = do getChallengeReadmeR name = do
@ -24,7 +25,7 @@ getChallengeReadmeR name = do
contents <- readFile readmeFilePath contents <- readFile readmeFilePath
challengeLayout False challenge $ toWidget $ markdown def $ TL.fromStrict contents challengeLayout False challenge $ toWidget $ markdown def $ TL.fromStrict contents
showChallengeWidget challenge = $(widgetFile "show-challenge") showChallengeWidget challenge repo = $(widgetFile "show-challenge")
getChallengeSubmissionR :: Text -> Handler Html getChallengeSubmissionR :: Text -> Handler Html

5
templates/show-challenge.hamlet
View File

@ -1 +1,4 @@
<p>Raz dwa trzy <p>Repo:
<tt> #{repoUrl repo}
\ Branch:
<tt> #{repoBranch repo}