diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2018-01-13 15:58:35 +0100 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2018-01-18 14:10:26 +0100 |
| commit | a543f44bd9541d13d85d9284332705e846c6cb20 (patch) | |
| tree | bd5cbd7c24a4409b47ecbddfbf7081737a38c17a /lib/Distribution | |
| parent | dbc6285489cb5171c611ebfd214e5c72d61a9dc8 (diff) | |
Remove package license query
Diffstat (limited to 'lib/Distribution')
| -rw-r--r-- | lib/Distribution/Helper.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lib/Distribution/Helper.hs b/lib/Distribution/Helper.hs index 0d9ab38..7dbfb2f 100644 --- a/lib/Distribution/Helper.hs +++ b/lib/Distribution/Helper.hs @@ -36,7 +36,6 @@ module Distribution.Helper ( , packageId , packageDbStack , packageFlags - , packageLicenses , compilerVersion , ghcMergedPkgOptions @@ -194,7 +193,6 @@ mkQueryEnv projdir distdir = QueryEnv { data SomeLocalBuildInfo = SomeLocalBuildInfo { slbiPackageDbStack :: [ChPkgDb], slbiPackageFlags :: [(String, Bool)], - slbiPkgLicenses :: [(String, [(String, Version)])], slbiCompilerVersion :: (String, Version), slbiGhcMergedPkgOptions :: [String], @@ -270,9 +268,6 @@ packageDbStack :: MonadIO m => Query m [ChPkgDb] -- | Like @ghcPkgOptions@ but for the whole package not just one component ghcMergedPkgOptions :: MonadIO m => Query m [String] --- | Get the licenses of the packages the current project is linking against. -packageLicenses :: MonadIO m => Query m [(String, [(String, Version)])] - -- | Flag definitions from cabal file packageFlags :: MonadIO m => Query m [(String, Bool)] @@ -321,7 +316,6 @@ ghcLangOptions :: MonadIO m => ComponentQuery m [String] packageId = Query $ getPackageId packageDbStack = Query $ slbiPackageDbStack `liftM` getSlbi packageFlags = Query $ slbiPackageFlags `liftM` getSlbi -packageLicenses = Query $ slbiPkgLicenses `liftM` getSlbi compilerVersion = Query $ slbiCompilerVersion `liftM` getSlbi ghcMergedPkgOptions = Query $ slbiGhcMergedPkgOptions `liftM` getSlbi configFlags = Query $ slbiConfigFlags `liftM` getSlbi @@ -390,7 +384,6 @@ getSomeConfigState = ask >>= \QueryEnv {..} -> do res <- readHelper [ "package-db-stack" , "flags" - , "licenses" , "compiler-version" , "ghc-merged-pkg-options" @@ -409,7 +402,6 @@ getSomeConfigState = ask >>= \QueryEnv {..} -> do ] let [ Just (ChResponsePkgDbs slbiPackageDbStack), Just (ChResponseFlags slbiPackageFlags), - Just (ChResponseLicenses slbiPkgLicenses), Just (ChResponseVersion comp compVer), Just (ChResponseList slbiGhcMergedPkgOptions), |