diff options
| author |   Jakov Smolić <jsmolic@gentoo.org> | 2022-08-21 23:24:03 +0200 |
|---|---|---|
| committer | Jakov Smolić <jsmolic@gentoo.org> | 2022-08-21 23:31:32 +0200 |
| commit | 4dad8cbccfbe592823d44dd30b45b0d60671341b (patch) | |
| tree | caf6840b3b781b1cfd04903d855668b39185046f /dev-haskell/uniqueid/files | |
| parent | dev-haskell/unixutils: treeclean (diff) | |
| download | gentoo-4dad8cbccfbe592823d44dd30b45b0d60671341b.tar.gz gentoo-4dad8cbccfbe592823d44dd30b45b0d60671341b.tar.bz2 gentoo-4dad8cbccfbe592823d44dd30b45b0d60671341b.zip | |
dev-haskell/uniqueid: treeclean
Closes: https://bugs.gentoo.org/815238
Signed-off-by: Jakov Smolić <jsmolic@gentoo.org>
Diffstat (limited to 'dev-haskell/uniqueid/files')
| -rw-r--r-- | dev-haskell/uniqueid/files/uniqueid-0.1.1-ghc-7.8.patch | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/dev-haskell/uniqueid/files/uniqueid-0.1.1-ghc-7.8.patch b/dev-haskell/uniqueid/files/uniqueid-0.1.1-ghc-7.8.patch deleted file mode 100644 index a48815ecda0e..000000000000 --- a/dev-haskell/uniqueid/files/uniqueid-0.1.1-ghc-7.8.patch +++ /dev/null @@ -1,46 +0,0 @@ -diff --git a/Data/Unique/Id.hs b/Data/Unique/Id.hs -index f41127e..56853d9 100644 ---- a/Data/Unique/Id.hs -+++ b/Data/Unique/Id.hs -@@ -14,7 +14,7 @@ module Data.Unique.Id ( - ) where - - import GHC.Exts --import GHC.IOBase ( unsafeDupableInterleaveIO ) -+import GHC.IO ( unsafeDupableInterleaveIO ) - - import Data.IORef - import System.IO.Unsafe ( unsafePerformIO ) -@@ -55,15 +55,15 @@ splitIdSupplyL ids = ids1 : splitIdSupplyL ids2 - idFromSupply :: IdSupply -> Id - idFromSupply (IdSupply n _ _) = Id (I# n) - --instance Eq Id where Id (I# x) == Id (I# y) = x ==# y -+instance Eq Id where Id (I# x) == Id (I# y) = isTrue# (x ==# y) - - instance Ord Id - where -- Id (I# x) < Id (I# y) = x <# y -- Id (I# x) <= Id (I# y) = x <=# y -+ Id (I# x) < Id (I# y) = isTrue# (x <# y) -+ Id (I# x) <= Id (I# y) = isTrue# (x <=# y) - - compare (Id (I# x)) (Id (I# y)) = -- if x ==# y then EQ else if x <# y then LT else GT -+ if isTrue# (x ==# y) then EQ else if isTrue# (x <# y) then LT else GT - - instance Show Id - where -diff --git a/uniqueid.cabal b/uniqueid.cabal -index 8099520..83aaa39 100644 ---- a/uniqueid.cabal -+++ b/uniqueid.cabal -@@ -18,7 +18,7 @@ Build-Type: Simple - Stability: experimental - - Library -- Build-Depends: base >= 3 && < 5 -+ Build-Depends: base >= 3 && < 5, ghc-prim - Exposed-Modules: Data.Unique.Id - Extensions: MagicHash - Ghc-Options: -Wall |