diff options
Diffstat (limited to 'semestr-3/pf/lista8/test/dist-newstyle/build/x86_64-linux/ghc-8.8.4/test-0.1.0.0/x/test-exe/build/test-exe/autogen/Paths_test.hs')
-rw-r--r-- | semestr-3/pf/lista8/test/dist-newstyle/build/x86_64-linux/ghc-8.8.4/test-0.1.0.0/x/test-exe/build/test-exe/autogen/Paths_test.hs | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/semestr-3/pf/lista8/test/dist-newstyle/build/x86_64-linux/ghc-8.8.4/test-0.1.0.0/x/test-exe/build/test-exe/autogen/Paths_test.hs b/semestr-3/pf/lista8/test/dist-newstyle/build/x86_64-linux/ghc-8.8.4/test-0.1.0.0/x/test-exe/build/test-exe/autogen/Paths_test.hs new file mode 100644 index 0000000..4bd35ee --- /dev/null +++ b/semestr-3/pf/lista8/test/dist-newstyle/build/x86_64-linux/ghc-8.8.4/test-0.1.0.0/x/test-exe/build/test-exe/autogen/Paths_test.hs @@ -0,0 +1,50 @@ +{-# LANGUAGE CPP #-} +{-# LANGUAGE NoRebindableSyntax #-} +{-# OPTIONS_GHC -fno-warn-missing-import-lists #-} +module Paths_test ( + version, + getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir, + getDataFileName, getSysconfDir + ) where + +import qualified Control.Exception as Exception +import Data.Version (Version(..)) +import System.Environment (getEnv) +import Prelude + +#if defined(VERSION_base) + +#if MIN_VERSION_base(4,0,0) +catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a +#else +catchIO :: IO a -> (Exception.Exception -> IO a) -> IO a +#endif + +#else +catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a +#endif +catchIO = Exception.catch + +version :: Version +version = Version [0,1,0,0] [] +bindir, libdir, dynlibdir, datadir, libexecdir, sysconfdir :: FilePath + +bindir = "/home/fmalinka/.cabal/bin" +libdir = "/home/fmalinka/.cabal/lib/x86_64-linux-ghc-8.8.4/test-0.1.0.0-inplace-test-exe" +dynlibdir = "/home/fmalinka/.cabal/lib/x86_64-linux-ghc-8.8.4" +datadir = "/home/fmalinka/.cabal/share/x86_64-linux-ghc-8.8.4/test-0.1.0.0" +libexecdir = "/home/fmalinka/.cabal/libexec/x86_64-linux-ghc-8.8.4/test-0.1.0.0" +sysconfdir = "/home/fmalinka/.cabal/etc" + +getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath +getBinDir = catchIO (getEnv "test_bindir") (\_ -> return bindir) +getLibDir = catchIO (getEnv "test_libdir") (\_ -> return libdir) +getDynLibDir = catchIO (getEnv "test_dynlibdir") (\_ -> return dynlibdir) +getDataDir = catchIO (getEnv "test_datadir") (\_ -> return datadir) +getLibexecDir = catchIO (getEnv "test_libexecdir") (\_ -> return libexecdir) +getSysconfDir = catchIO (getEnv "test_sysconfdir") (\_ -> return sysconfdir) + +getDataFileName :: FilePath -> IO FilePath +getDataFileName name = do + dir <- getDataDir + return (dir ++ "/" ++ name) |