diff --git a/Control/Applicative/Unicode.hs b/Control/Applicative/Unicode.hs --- a/Control/Applicative/Unicode.hs +++ b/Control/Applicative/Unicode.hs @@ -36,6 +36,7 @@ -} (⊛) ∷ Applicative f ⇒ f (α → β) → f α → f β (⊛) = (<*>) +{-# INLINE (⊛) #-} {-| (∅) = 'empty' @@ -44,3 +45,4 @@ -} (∅) ∷ Alternative f ⇒ f α (∅) = empty +{-# INLINE (∅) #-} diff --git a/Control/Arrow/Unicode.hs b/Control/Arrow/Unicode.hs --- a/Control/Arrow/Unicode.hs +++ b/Control/Arrow/Unicode.hs @@ -60,6 +60,7 @@ -} (⁂) ∷ Arrow (⇝) ⇒ (α ⇝ β) → (α' ⇝ β') → (α, α') ⇝ (β, β') (⁂) = (***) +{-# INLINE (⁂) #-} #endif {-| @@ -69,6 +70,7 @@ -} (⧻) ∷ ArrowChoice (⇝) ⇒ (α ⇝ β) → (α' ⇝ β') → (Either α α' ⇝ Either β β') (⧻) = (+++) +{-# INLINE (⧻) #-} {-| (⫴) = ('|||') @@ -77,6 +79,7 @@ -} (⫴) ∷ ArrowChoice (⇝) ⇒ (α ⇝ δ) → (β ⇝ δ) → (Either α β ⇝ δ) (⫴) = (|||) +{-# INLINE (⫴) #-} #if ! (MIN_VERSION_base(3,0,3)) {-| @@ -86,6 +89,7 @@ -} (⋙) ∷ Arrow (⇝) ⇒ (α ⇝ β) → (β ⇝ γ) → (α ⇝ γ) (⋙) = (>>>) +{-# INLINE (⋙) #-} {-| (⋘) = ('<<<') @@ -94,4 +98,5 @@ -} (⋘) ∷ Arrow (⇝) ⇒ (β ⇝ γ) → (α ⇝ β) → (α ⇝ γ) (⋘) = (<<<) +{-# INLINE (⋘) #-} #endif diff --git a/Control/Category/Unicode.hs b/Control/Category/Unicode.hs --- a/Control/Category/Unicode.hs +++ b/Control/Category/Unicode.hs @@ -37,6 +37,7 @@ -} (∘) ∷ Category (⇝) ⇒ (β ⇝ γ) → (α ⇝ β) → (α ⇝ γ) (∘) = (.) +{-# INLINE (∘) #-} {-| (⋙) = ('>>>') @@ -45,6 +46,7 @@ -} (⋙) ∷ Category (⇝) ⇒ (α ⇝ β) → (β ⇝ γ) → (α ⇝ γ) (⋙) = (>>>) +{-# INLINE (⋙) #-} {-| (⋘) = ('<<<') @@ -53,3 +55,4 @@ -} (⋘) ∷ Category (⇝) ⇒ (β ⇝ γ) → (α ⇝ β) → (α ⇝ γ) (⋘) = (<<<) +{-# INLINE (⋘) #-} diff --git a/Control/Monad/Unicode.hs b/Control/Monad/Unicode.hs --- a/Control/Monad/Unicode.hs +++ b/Control/Monad/Unicode.hs @@ -38,6 +38,7 @@ -} (≫=) ∷ Monad m ⇒ m α → (α → m β) → m β (≫=) = (>>=) +{-# INLINE (≫=) #-} {-| (≫) = ('>>') @@ -46,6 +47,7 @@ -} (≫) ∷ Monad m ⇒ m α → m β → m β (≫) = (>>) +{-# INLINE (≫) #-} {-| (=≪) = ('=<<') @@ -54,3 +56,4 @@ -} (=≪) ∷ Monad m ⇒ (α → m β) → m α → m β (=≪) = (=<<) +{-# INLINE (=≪) #-} diff --git a/Data/Bool/Unicode.hs b/Data/Bool/Unicode.hs --- a/Data/Bool/Unicode.hs +++ b/Data/Bool/Unicode.hs @@ -37,6 +37,7 @@ -} (¬) ∷ Bool → Bool (¬) = not +{-# INLINE (¬) #-} {-| (∧) = ('&&') @@ -45,6 +46,7 @@ -} (∧) ∷ Bool → Bool → Bool (∧) = (&&) +{-# INLINE (∧) #-} {-| (∨) = ('||') @@ -53,3 +55,4 @@ -} (∨) ∷ Bool → Bool → Bool (∨) = (||) +{-# INLINE (∨) #-} diff --git a/Data/Eq/Unicode.hs b/Data/Eq/Unicode.hs --- a/Data/Eq/Unicode.hs +++ b/Data/Eq/Unicode.hs @@ -38,6 +38,7 @@ -} (≡) ∷ Eq α ⇒ α → α → Bool (≡) = (==) +{-# INLINE (≡) #-} {-| (≢) = ('/=') @@ -46,6 +47,7 @@ -} (≢) ∷ Eq α ⇒ α → α → Bool (≢) = (/=) +{-# INLINE (≢) #-} {-| (≠) = ('/=') @@ -54,3 +56,4 @@ -} (≠) ∷ Eq α ⇒ α → α → Bool (≠) = (/=) +{-# INLINE (≠) #-} diff --git a/Data/Foldable/Unicode.hs b/Data/Foldable/Unicode.hs --- a/Data/Foldable/Unicode.hs +++ b/Data/Foldable/Unicode.hs @@ -42,6 +42,7 @@ -} (∈) ∷ (Foldable t, Eq α) ⇒ α → t α → Bool (∈) = elem +{-# INLINE (∈) #-} {-| (∋) = 'flip' (∈) @@ -50,6 +51,7 @@ -} (∋) ∷ (Foldable t, Eq α) ⇒ t α → α → Bool (∋) = flip (∈) +{-# INLINE (∋) #-} {-| (∉) = 'notElem' @@ -58,6 +60,7 @@ -} (∉) ∷ (Foldable t, Eq α) ⇒ α → t α → Bool (∉) = notElem +{-# INLINE (∉) #-} {-| (∌) = 'flip' (∉) @@ -66,3 +69,4 @@ -} (∌) ∷ (Foldable t, Eq α) ⇒ t α → α → Bool (∌) = flip (∉) +{-# INLINE (∌) #-} diff --git a/Data/Function/Unicode.hs b/Data/Function/Unicode.hs --- a/Data/Function/Unicode.hs +++ b/Data/Function/Unicode.hs @@ -36,3 +36,4 @@ -} (∘) ∷ (β → γ) → (α → β) → (α → γ) (∘) = (.) +{-# INLINE (∘) #-} diff --git a/Data/List/Unicode.hs b/Data/List/Unicode.hs --- a/Data/List/Unicode.hs +++ b/Data/List/Unicode.hs @@ -51,6 +51,7 @@ -} (⧺) ∷ [α] → [α] → [α] (⧺) = (++) +{-# INLINE (⧺) #-} {-| (∈) = 'elem' @@ -59,6 +60,7 @@ -} (∈) ∷ Eq α ⇒ α → [α] → Bool (∈) = elem +{-# INLINE (∈) #-} {-| (∋) = 'flip' (∈) @@ -67,6 +69,7 @@ -} (∋) ∷ Eq α ⇒ [α] → α → Bool (∋) = flip (∈) +{-# INLINE (∋) #-} {-| (∉) = 'notElem' @@ -75,6 +78,7 @@ -} (∉) ∷ Eq α ⇒ α → [α] → Bool (∉) = notElem +{-# INLINE (∉) #-} {-| (∌) = 'flip' (∉) @@ -83,6 +87,7 @@ -} (∌) ∷ Eq α ⇒ [α] → α → Bool (∌) = flip (∉) +{-# INLINE (∌) #-} {-| (∪) = 'union' @@ -91,6 +96,7 @@ -} (∪) ∷ Eq α ⇒ [α] → [α] → [α] (∪) = union +{-# INLINE (∪) #-} {-| (∖) = ('\\') @@ -99,6 +105,7 @@ -} (∖) ∷ Eq α ⇒ [α] → [α] → [α] (∖) = (\\) +{-# INLINE (∖) #-} {-| Symmetric difference @@ -109,6 +116,7 @@ -} (∆) ∷ Eq α ⇒ [α] → [α] → [α] a ∆ b = (a ∖ b) ∪ (b ∖ a) +{-# INLINE (∆) #-} {-| (∩) = 'intersect' @@ -117,3 +125,4 @@ -} (∩) ∷ Eq α ⇒ [α] → [α] → [α] (∩) = intersect +{-# INLINE (∩) #-} diff --git a/Data/Monoid/Unicode.hs b/Data/Monoid/Unicode.hs --- a/Data/Monoid/Unicode.hs +++ b/Data/Monoid/Unicode.hs @@ -36,6 +36,7 @@ -} (∅) ∷ Monoid α ⇒ α (∅) = mempty +{-# INLINE (∅) #-} {-| (⊕) = 'mappend' @@ -44,4 +45,4 @@ -} (⊕) ∷ Monoid α ⇒ α → α → α (⊕) = mappend - +{-# INLINE (⊕) #-} diff --git a/Data/Ord/Unicode.hs b/Data/Ord/Unicode.hs --- a/Data/Ord/Unicode.hs +++ b/Data/Ord/Unicode.hs @@ -40,6 +40,7 @@ -} (≤) ∷ Ord α ⇒ α → α → Bool (≤) = (<=) +{-# INLINE (≤) #-} {-| (≥) = ('>=') @@ -48,6 +49,7 @@ -} (≥) ∷ Ord α ⇒ α → α → Bool (≥) = (>=) +{-# INLINE (≥) #-} {-| (≮) = ('>=') @@ -56,6 +58,7 @@ -} (≮) ∷ Ord α ⇒ α → α → Bool (≮) = (>=) +{-# INLINE (≮) #-} {-| (≯) = ('<=') @@ -64,3 +67,4 @@ -} (≯) ∷ Ord α ⇒ α → α → Bool (≯) = (<=) +{-# INLINE (≯) #-} diff --git a/Prelude/Unicode.hs b/Prelude/Unicode.hs --- a/Prelude/Unicode.hs +++ b/Prelude/Unicode.hs @@ -58,6 +58,7 @@ -} π ∷ Floating α ⇒ α π = pi +{-# INLINE π #-} {-| (÷) = ('/') @@ -66,6 +67,7 @@ -} (÷) ∷ Fractional α ⇒ α → α → α (÷) = (/) +{-# INLINE (÷) #-} {-| (⋅) = ('*') @@ -74,6 +76,7 @@ -} (⋅) ∷ Num α ⇒ α → α → α (⋅) = (*) +{-# INLINE (⋅) #-} {-| (⊥) = 'undefined' @@ -82,6 +85,7 @@ -} (⊥) ∷ α (⊥) = undefined +{-# INLINE (⊥) #-} ------------------------------------------------------------------------------- diff --git a/base-unicode-symbols.cabal b/base-unicode-symbols.cabal --- a/base-unicode-symbols.cabal +++ b/base-unicode-symbols.cabal @@ -1,12 +1,12 @@ name: base-unicode-symbols -version: 0.2.2.1 +version: 0.2.2.2 cabal-version: >=1.6 build-type: Simple stability: provisional -tested-with: GHC ==6.8.1, GHC ==6.10.1, GHC ==6.12.1, GHC ==6.12.3, GHC ==7.0.1, GHC ==7.0.3 +tested-with: GHC ==6.8.1, GHC ==6.10.1, GHC ==6.12.1, GHC ==6.12.3, GHC ==7.0.1, GHC ==7.0.3, GHC ==7.2.1 author: Roel van Dijk maintainer: Roel van Dijk -copyright: 2009—2011 Roel van Dijk +copyright: 2009–2011 Roel van Dijk license: BSD3 license-file: LICENSE category: