Permalink
Browse files

Maintenance

Ignore-this: e3931aea75a2463562efc57e7f83e26e
Made compatible with GHC-6.8.1 and up
Updated copyright year
Changed version from 0.2.1.1 to 0.2.1.2

darcs-hash:20110330110306-cab80-a946b09181866b333d94ee86093478bec709b083.gz
  • Loading branch information...
1 parent d44ac45 commit a9b71287a313b21414b7ea2198776f9163ce8304 @roelvandijk committed Mar 30, 2011
Showing with 56 additions and 19 deletions.
  1. +39 −2 Control/Arrow/Unicode.hs
  2. +1 −1 LICENSE
  3. +16 −16 base-unicode-symbols.cabal
View
41 Control/Arrow/Unicode.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE NoImplicitPrelude, UnicodeSyntax, TypeOperators #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, UnicodeSyntax, TypeOperators #-}
{-|
Module : Control.Arrow.Unicode
@@ -7,7 +7,15 @@ License : BSD3 (see the file LICENSE)
Maintainer : Roel van Dijk <vandijk.roel@gmail.com>
-}
-module Control.Arrow.Unicode ( (⋙), (⋘), (⁂), (⧻), (⫴) ) where
+module Control.Arrow.Unicode
+ ( (⋙)
+ , (⋘)
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ > 608
+ , (⁂)
+#endif
+ , (⧻)
+ , (⫴)
+ ) where
-------------------------------------------------------------------------------
@@ -18,30 +26,41 @@ module Control.Arrow.Unicode ( (⋙), (⋘), (⁂), (⧻), (⫴) ) where
import Control.Arrow ( Arrow, (***), ArrowChoice, (+++), (|||) )
import Data.Either ( Either )
+#if MIN_VERSION_base(3,0,3)
-- from base-unicode-symbols
import Control.Category.Unicode ( (⋙), (⋘) )
+#else
+import Control.Arrow ( (>>>), (<<<) )
+#endif
-------------------------------------------------------------------------------
-- Fixities
-------------------------------------------------------------------------------
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ > 608
infixr 3
+#endif
infixr 2
infixr 2
+#if !MIN_VERSION_base(3,0,3)
+infixr 1 ⋙, ⋘
+#endif
-------------------------------------------------------------------------------
-- Symbols
-------------------------------------------------------------------------------
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ > 608
{-|
(&#x2042;) = ('***')
U+2042, ASTERISM
-}
(⁂) Arrow (⇝) (αβ) (α'β') (α, α') ⇝ (β, β')
(⁂) = (***)
+#endif
{-|
(&#x29FB;) = ('+++')
@@ -58,3 +77,21 @@ U+2AF4, TRIPLE VERTICAL BAR BINARY RELATION
-}
(⫴) ArrowChoice (⇝) (αδ) (βδ) (Either α βδ)
(⫴) = (|||)
+
+#if !MIN_VERSION_base(3,0,3)
+{-|
+(&#x22D9;) = ('>>>')
+
+U+22D9, VERY MUCH GREATER-THAN
+-}
+(⋙) Arrow (⇝) (αβ) (βγ) (αγ)
+(⋙) = (>>>)
+
+{-|
+(&#x22D8;) = ('<<<')
+
+U+22D8, VERY MUCH LESS-THAN
+-}
+(⋘) Arrow (⇝) (βγ) (αβ) (αγ)
+(⋘) = (<<<)
+#endif
View
2 LICENSE
@@ -1,4 +1,4 @@
-Copyright (c) 2009–2010 Roel van Dijk
+Copyright 2009–2011 Roel van Dijk
All rights reserved.
View
32 base-unicode-symbols.cabal
@@ -1,11 +1,12 @@
name: base-unicode-symbols
-version: 0.2.1.1
+version: 0.2.1.2
cabal-version: >=1.6
build-type: Simple
stability: provisional
+tested-with: GHC ==6.8.1, GHC ==6.10.1, GHC ==7.0.1, GHC ==7.0.3
author: Roel van Dijk <vandijk.roel@gmail.com>
maintainer: Roel van Dijk <vandijk.roel@gmail.com>
-copyright: (c) 2009–2010 Roel van Dijk <vandijk.roel@gmail.com>
+copyright: 2009–2011 Roel van Dijk <vandijk.roel@gmail.com>
license: BSD3
license-file: LICENSE
category:
@@ -21,18 +22,9 @@ description:
.
For further Unicode goodness you can enable the @UnicodeSyntax@
language extension \[1\]. This extension enables Unicode characters
- to be used to stand for certain ASCII character sequences. For GHC
- 6.12.3 it provides the following alternatives:
- .
- * &#x2237; (U+2237, PROPORTION) instead of @::@
- .
- * &#x21D2; (U+21D2, RIGHTWARDS DOUBLE ARROW) instead of @=>@
- .
- * &#x2200; (U+2200, FOR ALL) instead of @forall@
- .
- * &#x2192; (U+2192, RIGHTWARDS ARROW) instead of @->@
- .
- * &#x2190; (U+2190, LEFTWARDS ARROW) instead of @<-@
+ to be used to stand for certain ASCII character sequences,
+ i.e. &#x2192; instead of @->@, &#x2200; instead of @forall@ and many
+ others.
.
Original idea by P&#xE9;ter Divi&#xE1;nszky.
.
@@ -42,10 +34,18 @@ source-repository head
type: darcs
location: http://code.haskell.org/~roelvandijk/code/base-unicode-symbols
+flag old-base
+ description: Support for base < 3.0.3.1
+ default: False
+
library
+ if !flag(old-base)
+ build-depends: base >= 3.0 && < 4.4
+ else
+ build-depends: base >= 3.0.3.1 && < 4.4
+ exposed-modules: Control.Category.Unicode
exposed-modules: Control.Applicative.Unicode
, Control.Arrow.Unicode
- , Control.Category.Unicode
, Control.Monad.Unicode
, Data.Bool.Unicode
, Data.Eq.Unicode
@@ -55,4 +55,4 @@ library
, Data.Monoid.Unicode
, Data.Ord.Unicode
, Prelude.Unicode
- build-depends: base >= 3.0.3.1 && < 4.4
+

0 comments on commit a9b7128

Please sign in to comment.