openapi3-code-generator-0.1.0.7: src/OpenAPI/Generate/Internal/Embed.hs

{-# LANGUAGE TemplateHaskell #-}

module OpenAPI.Generate.Internal.Embed where

import Language.Haskell.TH
import Language.Haskell.TH.Syntax

embedFile :: FilePath -> Q Exp
embedFile fp =
  [|$(LitE . StringL <$> (qAddDependentFile fp >> runIO (readFile fp)))|]