11 lines
270 B
Haskell
11 lines
270 B
Haskell
|
module Handler.ShowChallenge where
|
||
|
|
||
|
import Import
|
||
|
|
||
|
getShowChallengeR :: Text -> Handler Html
|
||
|
getShowChallengeR name = do
|
||
|
(Entity _ challenge) <- runDB $ getBy404 $ UniqueName name
|
||
|
defaultLayout $ do
|
||
|
setTitle "Show a challenge"
|
||
|
$(widgetFile "show-challenge")
|