cabal-read: emigrate
This commit is contained in:
parent
0f5512c06d
commit
401f0e1159
@ -1,39 +0,0 @@
|
||||
{ writeHaskellPackage }:
|
||||
|
||||
# Because `sed -n 's/.*\<ghc-options:\s\+\(.*\)/\1/p'` is too simple.
|
||||
writeHaskellPackage "cabal-read" {
|
||||
executables.ghc-options = {
|
||||
extra-depends = ["Cabal"];
|
||||
text = /* haskell */ ''
|
||||
{-# LANGUAGE CPP #-}
|
||||
module Main (main) where
|
||||
import Data.List
|
||||
import Data.Maybe
|
||||
import Distribution.Compiler
|
||||
import Distribution.PackageDescription.Parsec
|
||||
import Distribution.Types.BuildInfo
|
||||
import Distribution.Types.CondTree
|
||||
import Distribution.Types.Executable
|
||||
import Distribution.Types.GenericPackageDescription
|
||||
import Distribution.Types.UnqualComponentName
|
||||
import Distribution.Verbosity
|
||||
import System.Environment
|
||||
main :: IO ()
|
||||
main = do
|
||||
[path, name] <- getArgs
|
||||
|
||||
desc <- readGenericPackageDescription normal path
|
||||
|
||||
case lookup (mkUnqualComponentName name) (condExecutables desc) of
|
||||
Just exe ->
|
||||
putStrLn . intercalate " " . fromMaybe [] . lookup GHC
|
||||
#if MIN_VERSION_Cabal(3,0,0)
|
||||
. perCompilerFlavorToList
|
||||
#endif
|
||||
. options . buildInfo . condTreeData $ exe
|
||||
|
||||
Nothing ->
|
||||
error ("executable " <> name <> " not found in " <> path)
|
||||
'';
|
||||
};
|
||||
}
|
Loading…
Reference in New Issue
Block a user