reactive-banana-wx-0.6.0.0: src/Paths.hs

{-# LANGUAGE CPP#-}
module Paths (getDataFile) where

import System.FilePath
import System.IO.Unsafe

#if buildExamples
-- using cabal
import System.Environment.Executable
import System.Info
import qualified Paths_reactive_banana_wx (getDataDir)

getDataDir
    | os == "darwin" =
        fmap (\x -> takeDirectory x </> ".." </> "Resources") getExecutablePath 
    | otherwise      = Paths_reactive_banana_wx.getDataDir

#else
-- using GHCi

getDataDir :: IO FilePath
getDataDir = return "../data/"

#endif

getDataFile x = unsafePerformIO $ fmap (</> x) getDataDir