| 1 |
gienah 12/06/02 06:24:48 |
| 2 |
|
| 3 |
Added: base-unicode-symbols-0.2.2.3-ghc-7.5.patch |
| 4 |
Log: |
| 5 |
EAPI=4 on line 5, patch for ghc 7.5 dev snapshot |
| 6 |
|
| 7 |
(Portage version: 2.1.10.63/cvs/Linux x86_64) |
| 8 |
|
| 9 |
Revision Changes Path |
| 10 |
1.1 dev-haskell/base-unicode-symbols/files/base-unicode-symbols-0.2.2.3-ghc-7.5.patch |
| 11 |
|
| 12 |
file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-haskell/base-unicode-symbols/files/base-unicode-symbols-0.2.2.3-ghc-7.5.patch?rev=1.1&view=markup |
| 13 |
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-haskell/base-unicode-symbols/files/base-unicode-symbols-0.2.2.3-ghc-7.5.patch?rev=1.1&content-type=text/plain |
| 14 |
|
| 15 |
Index: base-unicode-symbols-0.2.2.3-ghc-7.5.patch |
| 16 |
=================================================================== |
| 17 |
--- base-unicode-symbols-0.2.2.3-orig/Control/Arrow/Unicode.hs 2011-12-17 22:21:02.000000000 +1100 |
| 18 |
+++ base-unicode-symbols-0.2.2.3/Control/Arrow/Unicode.hs 2012-05-14 00:13:42.547126948 +1000 |
| 19 |
@@ -1,4 +1,4 @@ |
| 20 |
-{-# LANGUAGE CPP, NoImplicitPrelude, UnicodeSyntax, TypeOperators #-} |
| 21 |
+{-# LANGUAGE CPP, NoImplicitPrelude, UnicodeSyntax, TypeOperators, FlexibleContexts #-} |
| 22 |
|
| 23 |
{-| |
| 24 |
Module : Control.Arrow.Unicode |
| 25 |
@@ -58,7 +58,7 @@ |
| 26 |
|
| 27 |
U+2042, ASTERISM |
| 28 |
-} |
| 29 |
-(⁂) ∷ Arrow (⇝) ⇒ (α ⇝ β) → (α' ⇝ β') → (α, α') ⇝ (β, β') |
| 30 |
+(⁂) ∷ Arrow (->) ⇒ (α -> β) → (α' -> β') → (α, α') -> (β, β') |
| 31 |
(⁂) = (***) |
| 32 |
{-# INLINE (⁂) #-} |
| 33 |
#endif |
| 34 |
@@ -68,7 +68,7 @@ |
| 35 |
|
| 36 |
U+29FB, TRIPLE PLUS |
| 37 |
-} |
| 38 |
-(⧻) ∷ ArrowChoice (⇝) ⇒ (α ⇝ β) → (α' ⇝ β') → (Either α α' ⇝ Either β β') |
| 39 |
+(⧻) ∷ ArrowChoice (->) ⇒ (α -> β) → (α' -> β') → (Either α α' -> Either β β') |
| 40 |
(⧻) = (+++) |
| 41 |
{-# INLINE (⧻) #-} |
| 42 |
|
| 43 |
@@ -77,7 +77,7 @@ |
| 44 |
|
| 45 |
U+2AF4, TRIPLE VERTICAL BAR BINARY RELATION |
| 46 |
-} |
| 47 |
-(⫴) ∷ ArrowChoice (⇝) ⇒ (α ⇝ δ) → (β ⇝ δ) → (Either α β ⇝ δ) |
| 48 |
+(⫴) ∷ ArrowChoice (->) ⇒ (α -> δ) → (β -> δ) → (Either α β -> δ) |
| 49 |
(⫴) = (|||) |
| 50 |
{-# INLINE (⫴) #-} |
| 51 |
|
| 52 |
@@ -87,7 +87,7 @@ |
| 53 |
|
| 54 |
U+22D9, VERY MUCH GREATER-THAN |
| 55 |
-} |
| 56 |
-(⋙) ∷ Arrow (⇝) ⇒ (α ⇝ β) → (β ⇝ γ) → (α ⇝ γ) |
| 57 |
+(⋙) ∷ Arrow (->) ⇒ (α -> β) → (β -> γ) → (α -> γ) |
| 58 |
(⋙) = (>>>) |
| 59 |
{-# INLINE (⋙) #-} |
| 60 |
|
| 61 |
@@ -96,7 +96,7 @@ |
| 62 |
|
| 63 |
U+22D8, VERY MUCH LESS-THAN |
| 64 |
-} |
| 65 |
-(⋘) ∷ Arrow (⇝) ⇒ (β ⇝ γ) → (α ⇝ β) → (α ⇝ γ) |
| 66 |
+(⋘) ∷ Arrow (->) ⇒ (β -> γ) → (α -> β) → (α -> γ) |
| 67 |
(⋘) = (<<<) |
| 68 |
{-# INLINE (⋘) #-} |
| 69 |
#endif |
| 70 |
--- base-unicode-symbols-0.2.2.3-orig/Control/Category/Unicode.hs 2011-12-17 22:21:02.000000000 +1100 |
| 71 |
+++ base-unicode-symbols-0.2.2.3/Control/Category/Unicode.hs 2012-05-14 00:13:19.067598372 +1000 |
| 72 |
@@ -1,4 +1,4 @@ |
| 73 |
-{-# LANGUAGE NoImplicitPrelude, UnicodeSyntax, TypeOperators #-} |
| 74 |
+{-# LANGUAGE NoImplicitPrelude, UnicodeSyntax, TypeOperators, FlexibleContexts #-} |
| 75 |
|
| 76 |
{-| |
| 77 |
Module : Control.Category.Unicode |
| 78 |
@@ -35,7 +35,7 @@ |
| 79 |
|
| 80 |
U+2218, RING OPERATOR |
| 81 |
-} |
| 82 |
-(∘) ∷ Category (⇝) ⇒ (β ⇝ γ) → (α ⇝ β) → (α ⇝ γ) |
| 83 |
+(∘) ∷ Category (->) ⇒ (β -> γ) → (α -> β) → (α -> γ) |
| 84 |
(∘) = (.) |
| 85 |
{-# INLINE (∘) #-} |
| 86 |
|
| 87 |
@@ -44,7 +44,7 @@ |
| 88 |
|
| 89 |
U+22D9, VERY MUCH GREATER-THAN |
| 90 |
-} |
| 91 |
-(⋙) ∷ Category (⇝) ⇒ (α ⇝ β) → (β ⇝ γ) → (α ⇝ γ) |
| 92 |
+(⋙) ∷ Category (->) ⇒ (α -> β) → (β -> γ) → (α -> γ) |
| 93 |
(⋙) = (>>>) |
| 94 |
{-# INLINE (⋙) #-} |
| 95 |
|
| 96 |
@@ -53,6 +53,6 @@ |
| 97 |
|
| 98 |
U+22D8, VERY MUCH LESS-THAN |
| 99 |
-} |
| 100 |
-(⋘) ∷ Category (⇝) ⇒ (β ⇝ γ) → (α ⇝ β) → (α ⇝ γ) |
| 101 |
+(⋘) ∷ Category (->) ⇒ (β -> γ) → (α -> β) → (α -> γ) |
| 102 |
(⋘) = (<<<) |
| 103 |
{-# INLINE (⋘) #-} |
Archives