openapi3-code-generator-0.1.0.0: app/Embed.hs

{-# LANGUAGE TemplateHaskell #-}

module Embed where

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

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