2017-12-11 20 views

答えて

2

注意。ウィジェットを埋め込みたい場合はwhamletを使います。

また、はい - パラメータをウィジェットに渡すことができます。コンセプトを実証する例スタックスクリプト:

#!/usr/bin/env stack 
{- stack 
    --resolver lts-9.0 
    --install-ghc 
    runghc 
    --package yesod-core 
    --package yesod 
    --package shakespeare 
-} 

{-# LANGUAGE OverloadedStrings #-} 
{-# LANGUAGE QuasiQuotes  #-} 
{-# LANGUAGE TemplateHaskell #-} 
{-# LANGUAGE TypeFamilies  #-} 
import   Yesod 

data App = App 
mkYesod "App" [parseRoutes| 
/HomeR GET 
|] 

instance Yesod App 

data Person = Person { id :: Int, name :: String, email :: String } deriving (Show, Eq, Ord) 

collections = [Person 1 "Sibi" "[email protected]", Person 2 "Michael" "[email protected]"] 


whamlet1 :: Widget 
whamlet1 = [whamlet| <p>hello 
        $forall Person _ pname pemail <- collections 
        ^{whamlet2 pname pemail} 
      |] 

whamlet2 :: String -> String -> Widget 
whamlet2 pname pemail = [whamlet| <h1> #{pname} #{pemail} |] 

getHomeR = defaultLayout $ do 
    setTitle "My Page Title" 
    toWidget [lucius| h1 { color: green; } |] 
    whamlet1 

main = warp 3000 App 

widgets chapterイェソドブックには、より深く、それらを説明しています。

+0

@Sibiに感謝します。それは私が望んでいた解決策ではありませんが、私はそれを使用することができます:) – Yunis

関連する問題