Cabal 3.4: bump to Cabal-3.4, removed VersionRangeF cases (#1016)

Cabal 3.4 removed some constructors from VersionRange that can be
expressed via other constructors.

Author: andreasabel

hackage-server.cabal

@@ -113,7 +113,7 @@ common defaults
   -- other dependencies shared by most components
   build-depends:
     , aeson                 ^>= 1.5
-    , Cabal                 ^>= 3.2.1.0
+    , Cabal                 ^>= 3.4.1.0
     , fail                  ^>= 4.9.0
       -- we use Control.Monad.Except, introduced in mtl-2.2.1
     , network               >=  3 && < 3.2

src/Distribution/Server/Framework/Instances.hs

@@ -91,17 +91,14 @@ instance SafeCopy VersionRange where
     kind    = extension
     putCopy = contain . cataVersionRange f
       where
-        f AnyVersionF = putWord8 0
         f (ThisVersionF v) = putWord8 1 >> safePut v
         f (LaterVersionF v) = putWord8 2 >> safePut v
         f (EarlierVersionF v) = putWord8 3 >> safePut v
         f (OrLaterVersionF v) = putWord8 4 >> safePut v
         f (OrEarlierVersionF v) = putWord8 5 >> safePut v
-        f (WildcardVersionF v) = putWord8 6 >> safePut v
         f (MajorBoundVersionF v) = putWord8 10 >> safePut v -- since Cabal-2.0
         f (UnionVersionRangesF u v) = putWord8 7 >> u >> v
         f (IntersectVersionRangesF u v) = putWord8 8 >> u >> v
-        f (VersionRangeParensF v) = putWord8 9 >> v
     getCopy = contain getVR
       where
         getVR = do

src/Distribution/Server/Framework/MemSize.hs

@@ -240,17 +240,14 @@ instance MemSize Version where
 instance MemSize VersionRange where
     memSize = cataVersionRange f
       where
-        f AnyVersionF                   = memSize0
         f (ThisVersionF v)              = memSize1 v
         f (LaterVersionF v)             = memSize1 v
         f (OrLaterVersionF v)           = memSize1 v
         f (EarlierVersionF v)           = memSize1 v
         f (OrEarlierVersionF v)         = memSize1 v
-        f (WildcardVersionF v)          = memSize1 v
         f (MajorBoundVersionF v)        = memSize1 v
         f (UnionVersionRangesF u v)     = memSize2 u v
         f (IntersectVersionRangesF u v) = memSize2 u v
-        f (VersionRangeParensF v)       = memSize1 v
 
 instance MemSize PackageIdentifier where
     memSize (PackageIdentifier a b) = memSize2 a b