Yesod에서 토큰 위젯을 생성하는 방법은 무엇입니까?

Question

나는 Yesod에 다음 문제가 있습니다. 나는 내 자신의 태그 및 라벨을 원하기 때문에 내 HTML에 내 자신의 양식을 만들고 싶어하지만, 문제는 내가 내 양식은 다음 코드를 자동 생성하는 경우 그렇게 할 수있는 방법입니다 :

entryForm :: Form Post 
entryForm = renderDivs $ Post 
    <$> areq textField "name" Nothing 
    <*> areq textField "text" Nothing 
    <*> areq timeField "hour" Nothing 

내 핸들러는 다음과 같습니다

getPostNewR :: Handler RepHtml 
getPostNewR = do 
    (postWidget, enctype) <- generateFormPost entryForm 
    defaultLayout $ do 
     $(widgetFile "post_new") 

그리고 내 post_new.hamlet 파일은 이것이다 :

<form method=post enctype=#{enctype}> 
^{postWidget} 
<div> 
    <input type=submit value="Create Post"> 

내가 이런 식으로 내 폼보기 원하는 :

을

그러나이 같은 토큰 태그를 필요

나는이 토큰 값을 생성하거나 그렇게 얼마나 내 entryForm을 변경할 수있는 방법

<input type="hidden" name="_token" value="ETjYBzdwQ1"> 

? 시간과 I에 대한

덕분에 정말 도움을 주셔서 감사합니다

Answer 1

당신은, 예를 토큰 자체를 얻기 위해 다음 reqToken을 YesodRequest를 얻을 수 getRequest을 사용하고 있습니다 fmap reqToken getRequest.