base-unicode-symbols 0.1.4 → 0.2
raw patch · 3 files changed
+71/−7 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Data.Foldable.Unicode: (∋) :: (Foldable t, Eq α) => t α -> α -> Bool
+ Data.Foldable.Unicode: (∌) :: (Foldable t, Eq α) => t α -> α -> Bool
+ Data.List.Unicode: (∆) :: (Eq α) => [α] -> [α] -> [α]
+ Data.List.Unicode: (∋) :: (Eq α) => [α] -> α -> Bool
+ Data.List.Unicode: (∌) :: (Eq α) => [α] -> α -> Bool
+ Data.List.Unicode: (∖) :: (Eq α) => [α] -> [α] -> [α]
Files
- Data/Foldable/Unicode.hs +21/−2
- Data/List/Unicode.hs +49/−4
- base-unicode-symbols.cabal +1/−1
Data/Foldable/Unicode.hs view
@@ -17,6 +17,7 @@ -- from base: import Data.Bool ( Bool ) import Data.Eq ( Eq )+import Data.Function ( flip ) import Data.Foldable ( Foldable, elem, notElem ) @@ -25,14 +26,16 @@ ------------------------------------------------------------------------------- infix 4 ∈+infix 4 ∋ infix 4 ∉+infix 4 ∌ ------------------------------------------------------------------------------- -- Symbols ------------------------------------------------------------------------------- -{- |+{-| (∈) = 'elem' U+2208, ELEMENT OF@@ -40,10 +43,26 @@ (∈) ∷ (Foldable t, Eq α) ⇒ α → t α → Bool (∈) = elem -{- |+{-|+(∋) = 'flip' (∈)++U+220B, CONTAINS AS MEMBER+-}+(∋) ∷ (Foldable t, Eq α) ⇒ t α → α → Bool+(∋) = flip (∈)++{-| (∉) = 'notElem' U+2209, NOT AN ELEMENT OF -} (∉) ∷ (Foldable t, Eq α) ⇒ α → t α → Bool (∉) = notElem++{-|+(∌) = 'flip' (∉)++U+220C, DOES NOT CONTAIN AS MEMBER+-}+(∌) ∷ (Foldable t, Eq α) ⇒ t α → α → Bool+(∌) = flip (∉)
Data/List/Unicode.hs view
@@ -7,7 +7,11 @@ Maintainer : Roel van Dijk <vandijk.roel@gmail.com> -} -module Data.List.Unicode ( (⧺), (∈), (∉), (∪), (∩) ) where+module Data.List.Unicode+ ( (⧺)+ , (∈), (∋), (∉), (∌)+ , (∪), (∖), (∆), (∩)+ ) where -------------------------------------------------------------------------------@@ -15,9 +19,10 @@ ------------------------------------------------------------------------------- -- from base:-import Data.Bool ( Bool )-import Data.Eq ( Eq )-import Data.List ( (++), elem, notElem, union, intersect )+import Data.Bool ( Bool )+import Data.Eq ( Eq )+import Data.Function ( flip )+import Data.List ( (++), elem, notElem, union, (\\), intersect ) -------------------------------------------------------------------------------@@ -25,8 +30,14 @@ ------------------------------------------------------------------------------- infix 4 ∈+infix 4 ∋ infix 4 ∉+infix 4 ∌ infixr 5 ⧺+infixl 6 ∪+infixr 6 ∩+infixl 9 ∖+infixl 9 ∆ -------------------------------------------------------------------------------@@ -50,6 +61,14 @@ (∈) = elem {-|+(∋) = 'flip' (∈)++U+220B, CONTAINS AS MEMBER+-}+(∋) ∷ Eq α ⇒ [α] → α → Bool+(∋) = flip (∈)++{-| (∉) = 'notElem' U+2209, NOT AN ELEMENT OF@@ -58,12 +77,38 @@ (∉) = notElem {-|+(∌) = 'flip' (∉)++U+220C, DOES NOT CONTAIN AS MEMBER+-}+(∌) ∷ Eq α ⇒ [α] → α → Bool+(∌) = flip (∉)++{-| (∪) = 'union' U+222A, UNION -} (∪) ∷ Eq α ⇒ [α] → [α] → [α] (∪) = union++{-|+(∖) = ('\\')++U+2216, SET MINUS+-}+(∖) ∷ Eq α ⇒ [α] → [α] → [α]+(∖) = (\\)++{-|+Symmetric difference++a ∆ b = (a ∖ b) ∪ (b ∖ a)++U+2206, INCREMENT+-}+(∆) ∷ Eq α ⇒ [α] → [α] → [α]+a ∆ b = (a ∖ b) ∪ (b ∖ a) {-| (∩) = 'intersect'
base-unicode-symbols.cabal view
@@ -1,5 +1,5 @@ name: base-unicode-symbols-version: 0.1.4+version: 0.2 cabal-version: >=1.6 build-type: Simple stability: provisional