intero-file-embed

intero-file-embed.hs

{-# LANGUAGE CPP #-}
-- |

module Data.FileEmbed2
  ( makeRelativeToProject2
  , module Data.FileEmbed
  ) where

import Data.FileEmbed
import Language.Haskell.TH
import System.Environment

-- @since 0.0.10
makeRelativeToProject2 :: FilePath -> Q FilePath
makeRelativeToProject2 fp = do
  m <- runIO (lookupEnv "INTERO")
  case m of
    Nothing -> makeRelativeToProject fp
    Just {} -> pure fp