使用莎士比亞文本和外部文件

Question

如何將下面的示例轉換爲使用外部文件而不是嵌入式懶文本準引號？

{-# LANGUAGE QuasiQuotes, OverloadedStrings #-} 
import Text.Shakespeare.Text 
import qualified Data.Text.Lazy.IO as TLIO 
import Data.Text (Text) 
import Control.Monad (forM_) 

data Item = Item 
    { itemName :: Text 
    , itemQty :: Int 
    } 

items :: [Item] 
items = 
    [ Item "apples" 5 
    , Item "bananas" 10 
    ] 

main :: IO() 
main = forM_ items $ \item -> TLIO.putStrLn 
    [lt|You have #{show $ itemQty item} #{itemName item}.|] 

這是從yesod online book。

Answer 1

您可以使用textFile函數，沿着$(textFile "some-file")的行。