module Unison.Util.FileEmbed (embedProjectStringFile) where

import Data.FileEmbed (embedStringFile, makeRelativeToProject)
import Language.Haskell.TH.Syntax (Exp, Q)

embedProjectStringFile :: FilePath -> Q Exp
embedProjectStringFile :: FilePath -> Q Exp
embedProjectStringFile FilePath
fp = FilePath -> Q FilePath
makeRelativeToProject FilePath
fp Q FilePath -> (FilePath -> Q Exp) -> Q Exp
forall a b. Q a -> (a -> Q b) -> Q b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FilePath -> Q Exp
embedStringFile