diff options
author | V3n3RiX <venerix@koprulu.sector> | 2022-08-22 02:42:13 +0100 |
---|---|---|
committer | V3n3RiX <venerix@koprulu.sector> | 2022-08-22 02:42:13 +0100 |
commit | e7f37e03b952768321c8c943a80eff4152ea7bbd (patch) | |
tree | 355a9efb62297418cdadbc424b09dbafc54257e5 /dev-haskell/wavy/files | |
parent | 2518522472e5de9c52c78dc0246475fe0ae3cc05 (diff) |
gentoo auto-resync : 22:08:2022 - 02:42:13
Diffstat (limited to 'dev-haskell/wavy/files')
-rw-r--r-- | dev-haskell/wavy/files/wavy-0.1.0.0-binary-0.8.patch | 14 | ||||
-rw-r--r-- | dev-haskell/wavy/files/wavy-0.1.0.0-ghc-8.8.patch | 11 |
2 files changed, 0 insertions, 25 deletions
diff --git a/dev-haskell/wavy/files/wavy-0.1.0.0-binary-0.8.patch b/dev-haskell/wavy/files/wavy-0.1.0.0-binary-0.8.patch deleted file mode 100644 index 88db75b995c2..000000000000 --- a/dev-haskell/wavy/files/wavy-0.1.0.0-binary-0.8.patch +++ /dev/null @@ -1,14 +0,0 @@ -diff --git a/Sound/Wav/Binary.hs b/Sound/Wav/Binary.hs -index d2c539c..11883a3 100644 ---- a/Sound/Wav/Binary.hs -+++ b/Sound/Wav/Binary.hs -@@ -1 +1,2 @@ -+{-# LANGUAGE CPP #-} - -- | This module provides helper binary functions to get integer values from binary streams and put -@@ -8,2 +9,3 @@ import Data.Int - -+#if ! MIN_VERSION_binary(0,8,0) - getInt8 :: Get Int8 -@@ -31 +33,2 @@ putInt64le :: Int64 -> Put - putInt64le = putWord64le . fromIntegral -+#endif diff --git a/dev-haskell/wavy/files/wavy-0.1.0.0-ghc-8.8.patch b/dev-haskell/wavy/files/wavy-0.1.0.0-ghc-8.8.patch deleted file mode 100644 index 5d5fdee9bd24..000000000000 --- a/dev-haskell/wavy/files/wavy-0.1.0.0-ghc-8.8.patch +++ /dev/null @@ -1,11 +0,0 @@ ---- a/Sound/Wav/ChannelData.hs -+++ b/Sound/Wav/ChannelData.hs -@@ -111,7 +111,7 @@ wordPutter 1 = putInt8 . zeroStable (0 :: Int8) - wordPutter 2 = putInt16le . zeroStable (0 :: Int16) - wordPutter 3 = putInt32le . zeroStable (0 :: Int32) - wordPutter 4 = putInt64le --wordPutter x = \_ -> fail $ "The is no word putter for byte size " ++ show x -+wordPutter x = \_ -> error $ "The is no word putter for byte size " ++ show x - - wordGetter :: (Num a, Show a, Eq a) => a -> Get Int64 - wordGetter 1 = fmap zeroStable64 getInt8 |