never executed always true always false

    1 {-# LANGUAGE CPP #-}
    2 {-# LANGUAGE NoRebindableSyntax #-}
    3 {-# OPTIONS_GHC -fno-warn-missing-import-lists #-}
    4 module Paths_reanimate (
    5     version,
    6     getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir,
    7     getDataFileName, getSysconfDir
    8   ) where
    9 
   10 import qualified Control.Exception as Exception
   11 import Data.Version (Version(..))
   12 import System.Environment (getEnv)
   13 import Prelude
   14 
   15 #if defined(VERSION_base)
   16 
   17 #if MIN_VERSION_base(4,0,0)
   18 catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
   19 #else
   20 catchIO :: IO a -> (Exception.Exception -> IO a) -> IO a
   21 #endif
   22 
   23 #else
   24 catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
   25 #endif
   26 catchIO = Exception.catch
   27 
   28 version :: Version
   29 version = Version [0,4,1,0] []
   30 bindir, libdir, dynlibdir, datadir, libexecdir, sysconfdir :: FilePath
   31 
   32 bindir     = "/home/runner/.cabal/bin"
   33 libdir     = "/home/runner/.cabal/lib/x86_64-linux-ghc-8.8.2/reanimate-0.4.1.0-inplace"
   34 dynlibdir  = "/home/runner/.cabal/lib/x86_64-linux-ghc-8.8.2"
   35 datadir    = "/home/runner/.cabal/share/x86_64-linux-ghc-8.8.2/reanimate-0.4.1.0"
   36 libexecdir = "/home/runner/.cabal/libexec/x86_64-linux-ghc-8.8.2/reanimate-0.4.1.0"
   37 sysconfdir = "/home/runner/.cabal/etc"
   38 
   39 getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath
   40 getBinDir = catchIO (getEnv "reanimate_bindir") (\_ -> return bindir)
   41 getLibDir = catchIO (getEnv "reanimate_libdir") (\_ -> return libdir)
   42 getDynLibDir = catchIO (getEnv "reanimate_dynlibdir") (\_ -> return dynlibdir)
   43 getDataDir = catchIO (getEnv "reanimate_datadir") (\_ -> return datadir)
   44 getLibexecDir = catchIO (getEnv "reanimate_libexecdir") (\_ -> return libexecdir)
   45 getSysconfDir = catchIO (getEnv "reanimate_sysconfdir") (\_ -> return sysconfdir)
   46 
   47 getDataFileName :: FilePath -> IO FilePath
   48 getDataFileName name = do
   49   dir <- getDataDir
   50   return (dir ++ "/" ++ name)