hscaffold-0.4.1.0: src/Hscaffold/Interpreter/Common.hs

module Hscaffold.Interpreter.Common where

import           System.FilePath

-- | Very simple helper, if the second argument is absolute, returns it,
-- otherwise, return it relative to the first argument
mkActionPath :: FilePath
             ->
             -- ^ The root
             FilePath
             ->
             -- ^ A filepath
             FilePath
mkActionPath root fp = if isAbsolute fp then fp else root </> fp