mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-14 09:32:22 +00:00
73 lines
5.5 KiB
HTML
73 lines
5.5 KiB
HTML
<html>
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
|
|
<style type="text/css">
|
|
span.lineno { color: white; background: #aaaaaa; border-right: solid white 12px }
|
|
span.nottickedoff { background: yellow}
|
|
span.istickedoff { background: white }
|
|
span.tickonlyfalse { margin: -1px; border: 1px solid #f20913; background: #f20913 }
|
|
span.tickonlytrue { margin: -1px; border: 1px solid #60de51; background: #60de51 }
|
|
span.funcount { font-size: small; color: orange; z-index: 2; position: absolute; right: 20 }
|
|
span.decl { font-weight: bold }
|
|
span.spaces { background: white }
|
|
</style>
|
|
</head>
|
|
<body>
|
|
<pre>
|
|
<span class="decl"><span class="nottickedoff">never executed</span> <span class="tickonlytrue">always true</span> <span class="tickonlyfalse">always false</span></span>
|
|
</pre>
|
|
<pre>
|
|
<span class="lineno"> 1 </span>{-# LANGUAGE CPP #-}
|
|
<span class="lineno"> 2 </span>{-# LANGUAGE NoRebindableSyntax #-}
|
|
<span class="lineno"> 3 </span>{-# OPTIONS_GHC -fno-warn-missing-import-lists #-}
|
|
<span class="lineno"> 4 </span>module Paths_reanimate (
|
|
<span class="lineno"> 5 </span> version,
|
|
<span class="lineno"> 6 </span> getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir,
|
|
<span class="lineno"> 7 </span> getDataFileName, getSysconfDir
|
|
<span class="lineno"> 8 </span> ) where
|
|
<span class="lineno"> 9 </span>
|
|
<span class="lineno"> 10 </span>import qualified Control.Exception as Exception
|
|
<span class="lineno"> 11 </span>import Data.Version (Version(..))
|
|
<span class="lineno"> 12 </span>import System.Environment (getEnv)
|
|
<span class="lineno"> 13 </span>import Prelude
|
|
<span class="lineno"> 14 </span>
|
|
<span class="lineno"> 15 </span>#if defined(VERSION_base)
|
|
<span class="lineno"> 16 </span>
|
|
<span class="lineno"> 17 </span>#if MIN_VERSION_base(4,0,0)
|
|
<span class="lineno"> 18 </span>catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
|
|
<span class="lineno"> 19 </span>#else
|
|
<span class="lineno"> 20 </span>catchIO :: IO a -> (Exception.Exception -> IO a) -> IO a
|
|
<span class="lineno"> 21 </span>#endif
|
|
<span class="lineno"> 22 </span>
|
|
<span class="lineno"> 23 </span>#else
|
|
<span class="lineno"> 24 </span>catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
|
|
<span class="lineno"> 25 </span>#endif
|
|
<span class="lineno"> 26 </span><span class="decl"><span class="istickedoff">catchIO = Exception.catch</span></span>
|
|
<span class="lineno"> 27 </span>
|
|
<span class="lineno"> 28 </span>version :: Version
|
|
<span class="lineno"> 29 </span><span class="decl"><span class="nottickedoff">version = Version [1,0,0,0] []</span></span>
|
|
<span class="lineno"> 30 </span>bindir, libdir, dynlibdir, datadir, libexecdir, sysconfdir :: FilePath
|
|
<span class="lineno"> 31 </span>
|
|
<span class="lineno"> 32 </span><span class="decl"><span class="nottickedoff">bindir = "/home/runner/.cabal/bin"</span></span>
|
|
<span class="lineno"> 33 </span><span class="decl"><span class="nottickedoff">libdir = "/home/runner/.cabal/lib/x86_64-linux-ghc-8.8.3/reanimate-1.0.0.0-inplace"</span></span>
|
|
<span class="lineno"> 34 </span><span class="decl"><span class="nottickedoff">dynlibdir = "/home/runner/.cabal/lib/x86_64-linux-ghc-8.8.3"</span></span>
|
|
<span class="lineno"> 35 </span><span class="decl"><span class="nottickedoff">datadir = "/home/runner/.cabal/share/x86_64-linux-ghc-8.8.3/reanimate-1.0.0.0"</span></span>
|
|
<span class="lineno"> 36 </span><span class="decl"><span class="nottickedoff">libexecdir = "/home/runner/.cabal/libexec/x86_64-linux-ghc-8.8.3/reanimate-1.0.0.0"</span></span>
|
|
<span class="lineno"> 37 </span><span class="decl"><span class="nottickedoff">sysconfdir = "/home/runner/.cabal/etc"</span></span>
|
|
<span class="lineno"> 38 </span>
|
|
<span class="lineno"> 39 </span>getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath
|
|
<span class="lineno"> 40 </span><span class="decl"><span class="nottickedoff">getBinDir = catchIO (getEnv "reanimate_bindir") (\_ -> return bindir)</span></span>
|
|
<span class="lineno"> 41 </span><span class="decl"><span class="nottickedoff">getLibDir = catchIO (getEnv "reanimate_libdir") (\_ -> return libdir)</span></span>
|
|
<span class="lineno"> 42 </span><span class="decl"><span class="nottickedoff">getDynLibDir = catchIO (getEnv "reanimate_dynlibdir") (\_ -> return dynlibdir)</span></span>
|
|
<span class="lineno"> 43 </span><span class="decl"><span class="istickedoff">getDataDir = catchIO (getEnv "reanimate_datadir") <span class="nottickedoff">(\_ -> return datadir)</span></span></span>
|
|
<span class="lineno"> 44 </span><span class="decl"><span class="nottickedoff">getLibexecDir = catchIO (getEnv "reanimate_libexecdir") (\_ -> return libexecdir)</span></span>
|
|
<span class="lineno"> 45 </span><span class="decl"><span class="nottickedoff">getSysconfDir = catchIO (getEnv "reanimate_sysconfdir") (\_ -> return sysconfdir)</span></span>
|
|
<span class="lineno"> 46 </span>
|
|
<span class="lineno"> 47 </span>getDataFileName :: FilePath -> IO FilePath
|
|
<span class="lineno"> 48 </span><span class="decl"><span class="istickedoff">getDataFileName name = do</span>
|
|
<span class="lineno"> 49 </span><span class="spaces"> </span><span class="istickedoff">dir <- getDataDir</span>
|
|
<span class="lineno"> 50 </span><span class="spaces"> </span><span class="istickedoff">return (dir ++ "/" ++ name)</span></span>
|
|
|
|
</pre>
|
|
</body>
|
|
</html>
|