diff options
Diffstat (limited to 'dev-haskell/lvmlib/files')
-rw-r--r-- | dev-haskell/lvmlib/files/lvmlib-1.1-ghc-8.8.patch | 15 | ||||
-rw-r--r-- | dev-haskell/lvmlib/files/lvmlib-1.1-ghc84.patch | 14 |
2 files changed, 29 insertions, 0 deletions
diff --git a/dev-haskell/lvmlib/files/lvmlib-1.1-ghc-8.8.patch b/dev-haskell/lvmlib/files/lvmlib-1.1-ghc-8.8.patch new file mode 100644 index 000000000000..36d680794f07 --- /dev/null +++ b/dev-haskell/lvmlib/files/lvmlib-1.1-ghc-8.8.patch @@ -0,0 +1,15 @@ +--- a/Lvm/Common/IdMap.hs ++++ b/Lvm/Common/IdMap.hs +@@ -121,10 +121,10 @@ unionMaps :: [IdMap a] -> IdMap a + unionMaps = foldr unionMap emptyMap + + foldMapWithId :: (Id -> a -> b -> b) -> b -> IdMap a -> b +-foldMapWithId f z (IdMap m) = IntMap.foldWithKey (f . idFromInt) z m ++foldMapWithId f z (IdMap m) = IntMap.foldrWithKey (f . idFromInt) z m + + foldMap :: (a -> b -> b) -> b -> IdMap a -> b +-foldMap f z (IdMap m) = IntMap.fold f z m ++foldMap f z (IdMap m) = IntMap.foldr f z m + + sizeMap :: IdMap a -> Int + sizeMap (IdMap m) = IntMap.size m diff --git a/dev-haskell/lvmlib/files/lvmlib-1.1-ghc84.patch b/dev-haskell/lvmlib/files/lvmlib-1.1-ghc84.patch new file mode 100644 index 000000000000..8f9e85402f9c --- /dev/null +++ b/dev-haskell/lvmlib/files/lvmlib-1.1-ghc84.patch @@ -0,0 +1,14 @@ +--- a/Lvm/Common/Byte.hs ++++ b/Lvm/Common/Byte.hs +@@ -19,2 +19,3 @@ import System.Exit + import System.IO ++import qualified Data.Semigroup as S + +@@ -68,2 +69,7 @@ max32 = 2^(32::Int) -1 -- Bastiaan (Todo: check) + ++instance S.Semigroup Bytes where ++ (<>) bs Nil = bs ++ (<>) Nil cs = cs ++ (<>) bs cs = Cat bs cs ++ + instance Monoid Bytes where |