never executed always true always false

    1 {-# LANGUAGE CPP #-}
    2 {-# LANGUAGE NoRebindableSyntax #-}
    3 #if __GLASGOW_HASKELL__ >= 810
    4 {-# OPTIONS_GHC -Wno-prepositive-qualified-module #-}
    5 #endif
    6 {-# OPTIONS_GHC -fno-warn-missing-import-lists #-}
    7 {-# OPTIONS_GHC -w #-}
    8 module Paths_conjure_cp (
    9     version,
   10     getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir,
   11     getDataFileName, getSysconfDir
   12   ) where
   13 
   14 
   15 import qualified Control.Exception as Exception
   16 import qualified Data.List as List
   17 import Data.Version (Version(..))
   18 import System.Environment (getEnv)
   19 import Prelude
   20 
   21 
   22 #if defined(VERSION_base)
   23 
   24 #if MIN_VERSION_base(4,0,0)
   25 catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
   26 #else
   27 catchIO :: IO a -> (Exception.Exception -> IO a) -> IO a
   28 #endif
   29 
   30 #else
   31 catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
   32 #endif
   33 catchIO = Exception.catch
   34 
   35 version :: Version
   36 version = Version [2,5,1] []
   37 
   38 getDataFileName :: FilePath -> IO FilePath
   39 getDataFileName name = do
   40   dir <- getDataDir
   41   return (dir `joinFileName` name)
   42 
   43 getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath
   44 
   45 
   46 
   47 
   48 bindir, libdir, dynlibdir, datadir, libexecdir, sysconfdir :: FilePath
   49 bindir     = "/home/runner/work/conjure/conjure/.stack-work/install/x86_64-linux-tinfo6/658a4f4ceb53cfdbb233e40744bc905cb2d5883a283cfcdeb9cb1d0d1e7eae7c/9.8.4/bin"
   50 libdir     = "/home/runner/work/conjure/conjure/.stack-work/install/x86_64-linux-tinfo6/658a4f4ceb53cfdbb233e40744bc905cb2d5883a283cfcdeb9cb1d0d1e7eae7c/9.8.4/lib/x86_64-linux-ghc-9.8.4/conjure-cp"
   51 dynlibdir  = "/home/runner/work/conjure/conjure/.stack-work/install/x86_64-linux-tinfo6/658a4f4ceb53cfdbb233e40744bc905cb2d5883a283cfcdeb9cb1d0d1e7eae7c/9.8.4/lib/x86_64-linux-ghc-9.8.4"
   52 datadir    = "/home/runner/work/conjure/conjure/.stack-work/install/x86_64-linux-tinfo6/658a4f4ceb53cfdbb233e40744bc905cb2d5883a283cfcdeb9cb1d0d1e7eae7c/9.8.4/share/x86_64-linux-ghc-9.8.4/conjure-cp-2.5.1"
   53 libexecdir = "/home/runner/work/conjure/conjure/.stack-work/install/x86_64-linux-tinfo6/658a4f4ceb53cfdbb233e40744bc905cb2d5883a283cfcdeb9cb1d0d1e7eae7c/9.8.4/libexec/x86_64-linux-ghc-9.8.4/conjure-cp-2.5.1"
   54 sysconfdir = "/home/runner/work/conjure/conjure/.stack-work/install/x86_64-linux-tinfo6/658a4f4ceb53cfdbb233e40744bc905cb2d5883a283cfcdeb9cb1d0d1e7eae7c/9.8.4/etc"
   55 
   56 getBinDir     = catchIO (getEnv "conjure_cp_bindir")     (\_ -> return bindir)
   57 getLibDir     = catchIO (getEnv "conjure_cp_libdir")     (\_ -> return libdir)
   58 getDynLibDir  = catchIO (getEnv "conjure_cp_dynlibdir")  (\_ -> return dynlibdir)
   59 getDataDir    = catchIO (getEnv "conjure_cp_datadir")    (\_ -> return datadir)
   60 getLibexecDir = catchIO (getEnv "conjure_cp_libexecdir") (\_ -> return libexecdir)
   61 getSysconfDir = catchIO (getEnv "conjure_cp_sysconfdir") (\_ -> return sysconfdir)
   62 
   63 
   64 
   65 joinFileName :: String -> String -> FilePath
   66 joinFileName ""  fname = fname
   67 joinFileName "." fname = fname
   68 joinFileName dir ""    = dir
   69 joinFileName dir fname
   70   | isPathSeparator (List.last dir) = dir ++ fname
   71   | otherwise                       = dir ++ pathSeparator : fname
   72 
   73 pathSeparator :: Char
   74 pathSeparator = '/'
   75 
   76 isPathSeparator :: Char -> Bool
   77 isPathSeparator c = c == '/'