aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--CabalHelper/Main.hs79
-rw-r--r--CabalHelper/Types.hs4
-rw-r--r--cabal-helper.cabal4
-rw-r--r--tests/Spec.hs2
4 files changed, 57 insertions, 32 deletions
diff --git a/CabalHelper/Main.hs b/CabalHelper/Main.hs
index 96262a5..abdeef8 100644
--- a/CabalHelper/Main.hs
+++ b/CabalHelper/Main.hs
@@ -14,7 +14,7 @@
-- You should have received a copy of the GNU Affero General Public License
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
-{-# LANGUAGE CPP, BangPatterns, RecordWildCards, RankNTypes #-}
+{-# LANGUAGE CPP, BangPatterns, RecordWildCards, RankNTypes, ViewPatterns #-}
{-# OPTIONS_GHC -fno-warn-deprecations #-}
import Distribution.Simple.Utils (cabalVersion)
import Distribution.Simple.Configure
@@ -34,6 +34,9 @@ import Distribution.PackageDescription (PackageDescription,
TestSuiteInterface(..),
BenchmarkInterface(..),
withLib)
+#if CABAL_MAJOR == 1 && CABAL_MINOR >= 25
+import Distribution.PackageDescription (unFlagName, mkFlagName)
+#endif
import Distribution.PackageDescription.Parse (readPackageDescription)
import Distribution.PackageDescription.Configuration (flattenPackageDescription)
@@ -67,13 +70,19 @@ import Distribution.ModuleName (components)
import qualified Distribution.ModuleName as C (ModuleName)
import Distribution.Text (display)
import Distribution.Verbosity (Verbosity, silent, deafening, normal)
+import Distribution.Version (Version, mkVersion, versionNumbers)
#if CABAL_MAJOR == 1 && CABAL_MINOR >= 22
import Distribution.Utils.NubList
#endif
+#if CABAL_MAJOR == 1 && CABAL_MINOR >= 25
+import Distribution.Types.ForeignLib (ForeignLib(..))
+import Distribution.Types.UnqualComponentName (unUnqualComponentName)
+#endif
+
import Control.Applicative ((<$>))
-import Control.Arrow (first, (&&&))
+import Control.Arrow (first, second, (&&&))
import Control.Monad
import Control.Exception (catch, PatternMatchFail(..))
import Data.List
@@ -81,6 +90,7 @@ import qualified Data.Map as Map
import Data.Maybe
import Data.Monoid
import Data.IORef
+import qualified Data.Version as DataVersion
import System.Environment
import System.Directory
import System.FilePath
@@ -189,15 +199,15 @@ main = do
"config-flags":[] -> do
return $ Just $ ChResponseFlags $ sort $
- map (first unFlagName') $ configConfigurationsFlags $ configFlags lbi
+ map (first unFlagName) $ configConfigurationsFlags $ configFlags lbi
"non-default-config-flags":[] -> do
let flagDefinitons = genPackageFlags gpd
flagAssgnments = configConfigurationsFlags $ configFlags lbi
nonDefaultFlags =
[ (fn, v)
- | MkFlag {flagName=FlagName fn, flagDefault=dv} <- flagDefinitons
- , (FlagName fn', v) <- flagAssgnments
+ | MkFlag {flagName=(unFlagName -> fn), flagDefault=dv} <- flagDefinitons
+ , (unFlagName -> fn', v) <- flagAssgnments
, fn == fn'
, v /= dv
]
@@ -209,7 +219,7 @@ main = do
"compiler-version":[] -> do
let CompilerId comp ver = compilerId $ compiler lbi
- return $ Just $ ChResponseVersion (show comp) ver
+ return $ Just $ ChResponseVersion (show comp) (toDataVersion ver)
"ghc-options":flags -> do
res <- componentOptions lvd True flags id
@@ -284,7 +294,9 @@ main = do
"licenses":[] -> do
return $ Just $ ChResponseLicenses $
- displayDependencyLicenseList $ groupByLicense $ getDependencyInstalledPackageInfos lbi
+ map (second (map (second toDataVersion))) $
+ displayDependencyLicenseList $
+ groupByLicense $ getDependencyInstalledPackageInfos lbi
"print-lbi":flags ->
case flags of
@@ -296,8 +308,18 @@ main = do
_ ->
errMsg "Invalid usage!" >> usage >> exitFailure
-flagName' = unFlagName' . flagName
-unFlagName' (FlagName n) = n
+flagName' = unFlagName . flagName
+
+#if CABAL_MAJOR == 1 && CABAL_MINOR < 25
+unFlagName (FlagName n) = n
+mkFlagName n = FlagName n
+#endif
+
+toDataVersion :: Version -> DataVersion.Version
+toDataVersion v = DataVersion.Version (versionNumbers v) []
+
+--fromDataVersion :: DataVersion.Version -> Version
+--fromDataVersion (DataVersion.Version vs _) = mkVersion vs
getLibrary :: PackageDescription -> Library
getLibrary pd = unsafePerformIO $ do
@@ -355,32 +377,40 @@ componentOptions' (lbi, v, distdir) inplaceFlag flags rf f = do
componentOptions (lbi, v, distdir) inplaceFlag flags f =
componentOptions' (lbi, v, distdir) inplaceFlag flags renderGhcOptions' f
-#if CABAL_MAJOR == 1 && CABAL_MINOR < 25
-componentNameToCh CLibName = ChLibName ""
-#elif CABAL_MAJOR == 1 && CABAL_MINOR >= 25
-componentNameToCh (CLibName n) = ChLibName n
+componentNameToCh CLibName = ChLibName
+#if CABAL_MAJOR == 1 && CABAL_MINOR >= 25
+componentNameToCh (CSubLibName n) = ChSubLibName $ unUnqualComponentName' n
+componentNameToCh (CFLibName n) = ChFLibName $ unUnqualComponentName' n
+#endif
+componentNameToCh (CExeName n) = ChExeName $ unUnqualComponentName' n
+componentNameToCh (CTestName n) = ChTestName $ unUnqualComponentName' n
+componentNameToCh (CBenchName n) = ChBenchName $ unUnqualComponentName' n
+
+#if CABAL_MAJOR == 1 && CABAL_MINOR >= 25
+unUnqualComponentName' = unUnqualComponentName
+#else
+unUnqualComponentName' = id
#endif
-componentNameToCh (CExeName n) = ChExeName n
-componentNameToCh (CTestName n) = ChTestName n
-componentNameToCh (CBenchName n) = ChBenchName n
#if CABAL_MAJOR == 1 && CABAL_MINOR < 25
componentNameFromComponent (CLib Library {}) = CLibName
#elif CABAL_MAJOR == 1 && CABAL_MINOR >= 25
-componentNameFromComponent (CLib Library {..}) = CLibName libName
+componentNameFromComponent (CLib Library { libName = Nothing }) = CLibName
+componentNameFromComponent (CLib Library { libName = Just n }) = CSubLibName n
+componentNameFromComponent (CFLib ForeignLib {..}) = CFLibName foreignLibName
#endif
componentNameFromComponent (CExe Executable {..}) = CExeName exeName
componentNameFromComponent (CTest TestSuite {..}) = CTestName testName
componentNameFromComponent (CBench Benchmark {..}) = CBenchName benchmarkName
componentOutDir lbi (CLib Library {..})= buildDir lbi
-componentOutDir lbi (CExe Executable {..})= exeOutDir lbi exeName
+componentOutDir lbi (CExe Executable {..})= exeOutDir lbi (unUnqualComponentName' exeName)
componentOutDir lbi (CTest TestSuite { testInterface = TestSuiteExeV10 _ _, ..}) =
- exeOutDir lbi testName
+ exeOutDir lbi (unUnqualComponentName' testName)
componentOutDir lbi (CTest TestSuite { testInterface = TestSuiteLibV09 _ _, ..}) =
- exeOutDir lbi (testName ++ "Stub")
+ exeOutDir lbi (unUnqualComponentName' testName ++ "Stub")
componentOutDir lbi (CBench Benchmark { benchmarkInterface = BenchmarkExeV10 _ _, ..})=
- exeOutDir lbi benchmarkName
+ exeOutDir lbi (unUnqualComponentName' benchmarkName)
gmModuleName :: C.ModuleName -> ChModuleName
gmModuleName = ChModuleName . intercalate "." . components
@@ -472,12 +502,5 @@ renderGhcOptions' lbi v opts = do
return $ renderGhcOptions (compiler lbi) (hostPlatform lbi) opts
#endif
-
-#if CABAL_MAJOR == 1 && CABAL_MINOR < 25
initialBuildStepsForAllComponents distdir pd lbi v =
initialBuildSteps distdir pd lbi v
-#elif CABAL_MAJOR == 1 && CABAL_MINOR >= 25
-initialBuildStepsForAllComponents distdir pd lbi v =
- withComponentsLBI pd lbi $ \_c clbi ->
- initialBuildSteps distdir pd lbi clbi v
-#endif
diff --git a/CabalHelper/Types.hs b/CabalHelper/Types.hs
index 0ee7ec2..a134f08 100644
--- a/CabalHelper/Types.hs
+++ b/CabalHelper/Types.hs
@@ -24,7 +24,9 @@ newtype ChModuleName = ChModuleName String
deriving (Eq, Ord, Read, Show, Generic)
data ChComponentName = ChSetupHsName
- | ChLibName String
+ | ChLibName
+ | ChSubLibName String
+ | ChFLibName String
| ChExeName String
| ChTestName String
| ChBenchName String
diff --git a/cabal-helper.cabal b/cabal-helper.cabal
index 2e7edc1..fed84a1 100644
--- a/cabal-helper.cabal
+++ b/cabal-helper.cabal
@@ -60,7 +60,7 @@ library
default-language: Haskell2010
ghc-options: -Wall
build-depends: base < 5 && >= 4.5
- , Cabal < 1.25 && >= 1.14
+ , Cabal < 1.26 && >= 1.14
, directory < 1.4 && >= 1.1.0.2
, filepath < 1.5 && >= 1.3.0.0
, transformers < 0.6 && >= 0.3.0.0
@@ -83,7 +83,7 @@ executable cabal-helper-wrapper
ghc-options: -Wall
x-internal: True
build-depends: base < 5 && >= 4.5
- , Cabal < 1.25 && >= 1.14
+ , Cabal < 1.26 && >= 1.14
, bytestring < 0.11 && >= 0.9.2.1
, directory < 1.4 && >= 1.1.0.2
, filepath < 1.5 && >= 1.3.0.0
diff --git a/tests/Spec.hs b/tests/Spec.hs
index bc5f60b..d0614de 100644
--- a/tests/Spec.hs
+++ b/tests/Spec.hs
@@ -70,7 +70,7 @@ main = do
"1.24.0.0"
, "1.24.1.0"
, "1.24.2.0"
--- , "HEAD"
+ , "HEAD"
])
]
generated by cgit v1.2.3 (git 2.39.1) at 2024-12-25 20:22:20 +0000