relative filepath thingy

{-# LANGUAGE RecordWildCards #-}
module TH where
import Language.Haskell.TH
import System.FilePath
import Control.Monad ((<=<))
import System.Directory (getCurrentDirectory, canonicalizePath)

fileRelativeToAbsolute :: String -> Q Exp
fileRelativeToAbsolute = stringE <=< fileRelativeToAbsoluteStr

fileRelativeToAbsoluteStr :: String -> Q String
fileRelativeToAbsoluteStr relativeFilePath = do
  Loc {..} <- location
  currentDir <- runIO getCurrentDirectory
  let baseDir = takeDirectory loc_filename
  runIO $ canonicalizePath $ currentDir </> baseDir </> relativeFilePath