diff options
author | V3n3RiX <venerix@koprulu.sector> | 2022-08-22 14:43:09 +0100 |
---|---|---|
committer | V3n3RiX <venerix@koprulu.sector> | 2022-08-22 14:43:09 +0100 |
commit | c0a9f2400f704c438b0cef4f4105e7bb6c3cbbff (patch) | |
tree | f03dacf9fcbf88186d23a1c68620015cca2a06b2 /dev-haskell/hps/files/hps-0.15-ghc84.patch | |
parent | 4c4bbf21230bd972cf759b2a40b782aa4149fc1f (diff) |
gentoo auto-resync : 22:08:2022 - 14:43:09
Diffstat (limited to 'dev-haskell/hps/files/hps-0.15-ghc84.patch')
-rw-r--r-- | dev-haskell/hps/files/hps-0.15-ghc84.patch | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/dev-haskell/hps/files/hps-0.15-ghc84.patch b/dev-haskell/hps/files/hps-0.15-ghc84.patch deleted file mode 100644 index cbc67705459a..000000000000 --- a/dev-haskell/hps/files/hps-0.15-ghc84.patch +++ /dev/null @@ -1,28 +0,0 @@ ---- a/Graphics/PS/PS.hs -+++ b/Graphics/PS/PS.hs -@@ -14,2 +14,3 @@ import qualified Graphics.PS.Paper as P - import qualified Graphics.PS.Image as I -+import qualified Data.Semigroup as S - -@@ -248,2 +249,6 @@ newtype MonadMonoid m = MonadMonoid {appMonadMonoid :: m ()} - -+instance Monad m => S.Semigroup (MonadMonoid m) where -+ (<>) (MonadMonoid a) (MonadMonoid b) = -+ MonadMonoid (a >> b) -+ - instance Monad m => Monoid (MonadMonoid m) where ---- a/Graphics/PS/Statistics.hs -+++ b/Graphics/PS/Statistics.hs -@@ -6,2 +6,3 @@ import Graphics.PS.Image - import Graphics.PS.Path -+import qualified Data.Semigroup as S - -@@ -16,2 +17,8 @@ data Statistics = Statistics {nMoveTo :: Integer - -+instance S.Semigroup Statistics where -+ (<>) p q = -+ let (Statistics m1 l1 c1 f1 g1 t1) = p -+ (Statistics m2 l2 c2 f2 g2 t2) = q -+ in Statistics (m1+m2) (l1+l2) (c1+c2) (f1+f2) (g1+g2) (t1+t2) -+ - instance Monoid Statistics where |