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")
|