macbeth-lib-0.0.12: src/Paths.hs

module Paths (
  getDataFileName
) where

import Data.List
import qualified Paths_Macbeth as PM
import System.Environment.FindBin
import System.FilePath

getDataFileName :: FilePath -> IO FilePath
getDataFileName f
  | "app" `isInfixOf` __Bin__ = ((</> "Resources" </> f) . joinPath . init . splitPath) <$> getProgPath
  | otherwise = PM.getDataFileName f