Yesod 012에서 CSS 문서 검색

Question

저는 방금 Yesod를 시작하고 서버에서 작은 CSS 파일을 제공하려고합니다.

나는 원래 쓴 : 나에게 다음과 같은 유형의 오류를 제공

getMainStyleR :: Handler HTML 
getMainStyleR = [cassius| 
    #main 
     color: 333333 
     font-family: Sans 
|] 

을 : CSS는 HTML되지 않기 때문에

Couldn't match expected type `t0 
            -> shakespeare-css-1.0.7.1:Text.Css.Css' 
       with actual type `HandlerT HelloWorld IO Html' 

내가 생각? 이게 옳은 거니? 내가

Couldn't match expected type `HandlerT site0 IO res0' 
       with actual type `t0 -> shakespeare-css-1.0.7.1:Text.Css.Css' 

를 얻을 수 (하스켈이 추론을 확인하기 위해) getMainStyleR의 유형 선언을 가지고가는 경우에

이 그렇다면, 그래서 핸들러는 HTML을 부여 할 필요가 있다고 생각, 그래서 내가 할 일을 CSS를 만들고 싶다면?

나는 짐작 :

getMainStyleR :: Handler Css 
getMainStyleR = [cassius| 
    #main 
     color: 333333 
     font-family: Sans 
|] 

하지만 그건 그냥 말한다 :

Not in scope: type constructor or class `Css' 

CSS의 덩어리를 반환하는 유형이 있습니까?

나는 아래 @Michael Snoyman의 제안을 시도 :

업데이트 (물건의 종류는 어떤 점에서 필요 해요 것 같다). 먼저 간단한 부분 응답

No instance for (ToTypedContent Css) 
     arising from a use of `yesodRunner' 
    Possible fix: add an instance declaration for (ToTypedContent Css) 
    In the expression: yesodRunner getMainStyleR 
    In the expression: 
     ((Data.Text.Encoding.encodeUtf8 . Data.Text.pack) "GET", 
     yesodRunner getMainStyleR) 
    In the first argument of `containers-0.5.0.0:Data.Map.Base.fromList', namely 
     `[((Data.Text.Encoding.encodeUtf8 . Data.Text.pack) "GET", 
     yesodRunner getMainStyleR)]' 

Answer 1

: 지금이 오류를 받고 있어요 당신이 그것을 사용하기 위해 Css 데이터 유형을 가져와야합니다. Hoogle을 사용하면 Text.Lucius 및 Text.Cassius 모듈에서 사용할 수 있음을 알 수 있습니다. 따라서 수입 명세서에 import Text.Lucius (Css) 등을 추가해야합니다.

다음 호는 cassius 견적의 실제 유형입니다. 이것에 대해 배울 수있는 가장 좋은 곳은 Yesod book's chapter on Shakespeare입니다. 중요한 점은 cassius이 함수 인을 생성하고 있으며 일반 Css 값이 아님을 의미합니다. 함수에 대한 인수는 URL 렌더링 함수입니다. 따라서이를 얻으려면 getUrlRenderParams을 사용해야합니다.

최종 문제는 Handler 모나드에 결과를 반환해야한다는 것입니다. 순수 값을 마무리하려면 return을 사용해야합니다.

getMainStyleR = do 
    render <- getUrlRenderParams 
    return $ [cassius|...|] render