FileEmbed.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE QuasiQuotes #-}
module Boris.Http.TH (
    embed
  ) where


import qualified Data.Text as T
import qualified Data.Text.IO as T

import           Language.Haskell.TH
import           Language.Haskell.TH.Syntax (qAddDependentFile)

import           P

import           System.IO (FilePath)


embed :: FilePath -> Q Exp
embed f = do
  qAddDependentFile f
  t <- runIO (T.readFile f)
  appE (varE 'T.pack) . litE . StringL . T.unpack $ t