Используйте Шекспир-текст и внешний файл

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"),