使用莎士比亚-文本和外部文件

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 "some-file")的方式使用textFile函数。