aboutsummaryrefslogtreecommitdiff
path: root/Distribution
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2015-04-11 20:10:29 +0200
committerDaniel Gröber <dxld@darkboxed.org>2015-04-11 20:10:29 +0200
commitb1b374764fa6040681480e7746505c32e13ab5e7 (patch)
treedbe978d1c70425f3697032730607509a11ebfd8b /Distribution
parent9b58cd9fb2596ed2a946cfc545868604131a6c5b (diff)
Add language options query
Diffstat (limited to 'Distribution')
-rw-r--r--Distribution/Helper.hs15
1 files changed, 12 insertions, 3 deletions
diff --git a/Distribution/Helper.hs b/Distribution/Helper.hs
index 1a4bc37..6946465 100644
--- a/Distribution/Helper.hs
+++ b/Distribution/Helper.hs
@@ -32,6 +32,7 @@ module Distribution.Helper (
, ghcOptions
, ghcSrcOptions
, ghcPkgOptions
+ , ghcLangOptions
-- * Result types
, ChModuleName(..)
@@ -87,7 +88,8 @@ data SomeLocalBuildInfo = SomeLocalBuildInfo {
slbiSourceDirs :: [(ChComponentName, [String])],
slbiGhcOptions :: [(ChComponentName, [String])],
slbiGhcSrcOptions :: [(ChComponentName, [String])],
- slbiGhcPkgOptions :: [(ChComponentName, [String])]
+ slbiGhcPkgOptions :: [(ChComponentName, [String])],
+ slbiGhcLangOptions :: [(ChComponentName, [String])]
} deriving (Eq, Ord, Read, Show)
-- | Caches helper executable result so it doesn't have to be run more than once
@@ -146,11 +148,15 @@ ghcSrcOptions :: MonadIO m => Query m [(ChComponentName, [String])]
-- access any home modules.
ghcPkgOptions :: MonadIO m => Query m [(ChComponentName, [String])]
+-- | Only language related options, i.e. @-XSomeExtension@
+ghcLangOptions :: MonadIO m => Query m [(ChComponentName, [String])]
+
entrypoints = Query $ slbiEntrypoints `liftM` getSlbi
sourceDirs = Query $ slbiSourceDirs `liftM` getSlbi
ghcOptions = Query $ slbiGhcOptions `liftM` getSlbi
ghcSrcOptions = Query $ slbiGhcSrcOptions `liftM` getSlbi
ghcPkgOptions = Query $ slbiGhcPkgOptions `liftM` getSlbi
+ghcLangOptions = Query $ slbiGhcLangOptions `liftM` getSlbi
-- | Run @cabal configure@
reconfigure :: MonadIO m
@@ -181,6 +187,7 @@ getSomeConfigState = ask >>= \(progs, distdir) -> do
, "ghc-options"
, "ghc-src-options"
, "ghc-pkg-options"
+ , "ghc-lang-options"
] ++ progArgs
res <- liftIO $ do
@@ -195,9 +202,11 @@ getSomeConfigState = ask >>= \(progs, distdir) -> do
Just (ChResponseStrings srcDirs),
Just (ChResponseStrings ghcOpts),
Just (ChResponseStrings ghcSrcOpts),
- Just (ChResponseStrings ghcPkgOpts) ] = res
+ Just (ChResponseStrings ghcPkgOpts),
+ Just (ChResponseStrings ghcLangOpts) ] = res
- return $ SomeLocalBuildInfo eps srcDirs ghcOpts ghcSrcOpts ghcPkgOpts
+ return $ SomeLocalBuildInfo
+ eps srcDirs ghcOpts ghcSrcOpts ghcPkgOpts ghcLangOpts
-- | Create @cabal_macros.h@ and @Paths_\<pkg\>@ possibly other generated files
-- in the usual place.