    module Paths_HTTP (
        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 = [4000,2,8], versionTags = []}
    bindir, libdir, datadir, libexecdir :: FilePath

    bindir     = "/usr/bin"
    libdir     = "/usr/lib/HTTP-4000.2.8/ghc-7.6.3"
    datadir    = "/usr/share/HTTP-4000.2.8"
    libexecdir = "/usr/libexec"

    getBinDir, getLibDir, getDataDir, getLibexecDir :: IO FilePath
    getBinDir = catchIO (getEnv "HTTP_bindir") (\_ -> return bindir)
    getLibDir = catchIO (getEnv "HTTP_libdir") (\_ -> return libdir)
    getDataDir = catchIO (getEnv "HTTP_datadir") (\_ -> return datadir)
    getLibexecDir = catchIO (getEnv "HTTP_libexecdir") (\_ -> return libexecdir)

    getDataFileName :: FilePath -> IO FilePath
    getDataFileName name = do
      dir <- getDataDir
      return (dir ++ "/" ++ name)