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

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

您可以按照 $(text File "some-file") 的行使用 text File 函数。