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 オンラインブックからのものです。

Answer 1

textFileの行に沿って関数を使用できます$(textFile "some-file")。