reactive-banana-threepenny-0.7.1.3: 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_threepenny (getDataDir)

getDataDir :: IO FilePath
getDataDir = Paths_reactive_banana_threepenny.getDataDir

#else
-- using GHCi

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

#endif

getDataFile x = fmap (</> x) getDataDir