35 lines
1.1 KiB
Haskell
35 lines
1.1 KiB
Haskell
module Paths_hgraph (
|
|
version,
|
|
getBinDir, getLibDir, getDataDir, getLibexecDir,
|
|
getDataFileName
|
|
) where
|
|
|
|
import qualified Control.Exception as Exception
|
|
import Data.Version (Version(..))
|
|
import System.Environment (getEnv)
|
|
import Prelude
|
|
|
|
catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
|
|
catchIO = Exception.catch
|
|
|
|
|
|
version :: Version
|
|
version = Version {versionBranch = [0,0,1], versionTags = []}
|
|
bindir, libdir, datadir, libexecdir :: FilePath
|
|
|
|
bindir = "/home/sdressel/.cabal/bin"
|
|
libdir = "/home/sdressel/.cabal/lib/hgraph-0.0.1/ghc-7.6.3"
|
|
datadir = "/home/sdressel/.cabal/share/hgraph-0.0.1"
|
|
libexecdir = "/home/sdressel/.cabal/libexec"
|
|
|
|
getBinDir, getLibDir, getDataDir, getLibexecDir :: IO FilePath
|
|
getBinDir = catchIO (getEnv "hgraph_bindir") (\_ -> return bindir)
|
|
getLibDir = catchIO (getEnv "hgraph_libdir") (\_ -> return libdir)
|
|
getDataDir = catchIO (getEnv "hgraph_datadir") (\_ -> return datadir)
|
|
getLibexecDir = catchIO (getEnv "hgraph_libexecdir") (\_ -> return libexecdir)
|
|
|
|
getDataFileName :: FilePath -> IO FilePath
|
|
getDataFileName name = do
|
|
dir <- getDataDir
|
|
return (dir ++ "/" ++ name)
|