diff --git a/Control/Applicative/Unicode.hs b/Control/Applicative/Unicode.hs
--- a/Control/Applicative/Unicode.hs
+++ b/Control/Applicative/Unicode.hs
@@ -19,15 +19,15 @@
 -- Symbols
 -------------------------------------------------------------------------------
 
-{- |
+{-|
 (&#x229B;) = '<*>'
 
 U+229B, CIRCLED ASTERISK OPERATOR
 -}
 (⊛) ∷ Applicative f ⇒ f (α → β) → f α → f β
 (⊛) = (<*>)
-    
-{- |
+
+{-|
 (&#x2205;) = 'empty'
 
 U+2205, EMPTY SET
diff --git a/Control/Category/Unicode.hs b/Control/Category/Unicode.hs
--- a/Control/Category/Unicode.hs
+++ b/Control/Category/Unicode.hs
@@ -17,7 +17,7 @@
 -- Symbols
 -------------------------------------------------------------------------------
 
-{- |
+{-|
 (&#x2218;) = ('.')
 
 U+2218, RING OPERATOR
diff --git a/Data/Bool/Unicode.hs b/Data/Bool/Unicode.hs
--- a/Data/Bool/Unicode.hs
+++ b/Data/Bool/Unicode.hs
@@ -18,7 +18,7 @@
 -- Symbols
 -------------------------------------------------------------------------------
 
-{- |
+{-|
 (&#x00AC;) = 'not'
 
 U+00AC, NOT SIGN
@@ -26,7 +26,7 @@
 (¬) ∷ Bool → Bool
 (¬) = not
 
-{- |
+{-|
 (&#x2227;) = ('&&')
 
 U+2227, LOGICAL AND
@@ -34,7 +34,7 @@
 (∧) ∷ Bool → Bool → Bool
 (∧) = (&&)
 
-{- |
+{-|
 (&#x2228;) = ('||')
 
 U+2228, LOGICAL OR
diff --git a/Data/Eq/Unicode.hs b/Data/Eq/Unicode.hs
--- a/Data/Eq/Unicode.hs
+++ b/Data/Eq/Unicode.hs
@@ -19,7 +19,7 @@
 -- Symbols
 -------------------------------------------------------------------------------
 
-{- |
+{-|
 (&#x2261;) = ('==')
 
 U+2261, IDENTICAL TO
@@ -27,7 +27,7 @@
 (≡) ∷ Eq α ⇒ α → α → Bool
 (≡) = (==)
 
-{- |
+{-|
 (&#x2262;) = ('/=')
 
 U+2262, NOT IDENTICAL TO
diff --git a/Data/Function/Unicode.hs b/Data/Function/Unicode.hs
--- a/Data/Function/Unicode.hs
+++ b/Data/Function/Unicode.hs
@@ -17,7 +17,7 @@
 -- Symbols
 -------------------------------------------------------------------------------
 
-{- |
+{-|
 (&#x2218;) = ('.')
 
 U+2218, RING OPERATOR
diff --git a/Data/List/Unicode.hs b/Data/List/Unicode.hs
--- a/Data/List/Unicode.hs
+++ b/Data/List/Unicode.hs
@@ -1,11 +1,11 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# LANGUAGE UnicodeSyntax #-}
 
-module Data.List.Unicode ( (∈), (∉), (∪), (∩) ) where
+module Data.List.Unicode ( (⧺), (∈), (∉), (∪), (∩) ) where
 
 import Data.Bool ( Bool )
 import Data.Eq   ( Eq )
-import Data.List ( elem, notElem , union, intersect )
+import Data.List ( (++), elem, notElem, union, intersect )
 
 
 -------------------------------------------------------------------------------
@@ -14,13 +14,22 @@
 
 infix  4 ∈
 infix  4 ∉
+infixr 5 ⧺
 
 
 -------------------------------------------------------------------------------
 -- Symbols
 -------------------------------------------------------------------------------
 
-{- |
+{-|
+(&#x29FA;) = ('++')
+
+U+29FA, DOUBLE PLUS
+-}
+(⧺) ∷ [α] → [α] → [α]
+(⧺) = (++)
+
+{-|
 (&#x2208;) = 'elem'
 
 U+2208, ELEMENT OF
@@ -28,7 +37,7 @@
 (∈) ∷ Eq α ⇒ α → [α] → Bool
 (∈) = elem
 
-{- |
+{-|
 (&#x2209;) = 'notElem'
 
 U+2209, NOT AN ELEMENT OF
@@ -36,7 +45,7 @@
 (∉) ∷ Eq α ⇒ α → [α] → Bool
 (∉) = notElem
 
-{- |
+{-|
 (&#x222A;) = 'union'
 
 U+222A, UNION
@@ -44,7 +53,7 @@
 (∪) ∷ Eq α ⇒ [α] → [α] → [α]
 (∪) = union
 
-{- |
+{-|
 (&#x2229;) = 'intersect'
 
 U+2229, INTERSECTION
diff --git a/Data/Monoid/Unicode.hs b/Data/Monoid/Unicode.hs
--- a/Data/Monoid/Unicode.hs
+++ b/Data/Monoid/Unicode.hs
@@ -1,9 +1,9 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# LANGUAGE UnicodeSyntax #-}
 
-module Data.Monoid.Unicode 
+module Data.Monoid.Unicode
     ( (∅)
-    , (⊕) 
+    , (⊕)
     ) where
 
 import Data.Monoid ( Monoid, mempty, mappend )
@@ -20,7 +20,7 @@
 -- Symbols
 -------------------------------------------------------------------------------
 
-{- |
+{-|
 (&#x2205;) = 'mempty'
 
 U+2205, EMPTY SET
@@ -28,7 +28,7 @@
 (∅) ∷ Monoid α ⇒ α
 (∅) = mempty
 
-{- |
+{-|
 (&#x2295;) = 'mappend'
 
 U+2295, CIRCLED PLUS
diff --git a/Data/Ord/Unicode.hs b/Data/Ord/Unicode.hs
--- a/Data/Ord/Unicode.hs
+++ b/Data/Ord/Unicode.hs
@@ -21,7 +21,7 @@
 -- Symbols
 -------------------------------------------------------------------------------
 
-{- |
+{-|
 (&#x2264;) = ('<=')
 
 U+2264, LESS-THAN OR EQUAL TO
@@ -29,7 +29,7 @@
 (≤) ∷ Ord α ⇒ α → α → Bool
 (≤) = (<=)
 
-{- |
+{-|
 (&#x2265;) = ('>=')
 
 U+2265, GREATER-THAN OR EQUAL TO
@@ -37,7 +37,7 @@
 (≥) ∷ Ord α ⇒ α → α → Bool
 (≥) = (>=)
 
-{- |
+{-|
 (&#x226E;) = ('>=')
 
 U+226E, NOT LESS-THAN
@@ -45,7 +45,7 @@
 (≮) ∷ Ord α ⇒ α → α → Bool
 (≮) = (>=)
 
-{- |
+{-|
 (&#x226F;) = ('<=')
 
 U+226F, NOT GREATER-THAN
diff --git a/Prelude/Unicode.hs b/Prelude/Unicode.hs
--- a/Prelude/Unicode.hs
+++ b/Prelude/Unicode.hs
@@ -8,6 +8,7 @@
     , π
     , (÷), (⋅)
     , (∘)
+    , (⧺)
     , (∈), (∉)
     , (⊥)
     ) where
@@ -15,11 +16,11 @@
 import Data.Bool.Unicode     ( (∧), (∨), (¬) )
 import Data.Eq.Unicode       ( (≡), (≢) )
 import Data.Function.Unicode ( (∘) )
-import Data.List.Unicode     ( (∈), (∉) ) 
+import Data.List.Unicode     ( (⧺), (∈), (∉) )
 import Data.Ord.Unicode      ( (≤), (≥), (≮), (≯) )
 
 import Prelude ( Num, Floating, Fractional
-               , (/), (*), pi, undefined 
+               , (/), (*), pi, undefined
                )
 
 
@@ -35,7 +36,7 @@
 -- Symbols
 -------------------------------------------------------------------------------
 
-{- |
+{-|
 &#x03C0; = 'pi'
 
 U+03C0, GREEK SMALL LETTER PI
@@ -43,7 +44,7 @@
 π ∷ Floating α ⇒ α
 π = pi
 
-{- |
+{-|
 (&#x00F7;) = ('/')
 
 U+00F7, DIVISION SIGN
@@ -51,7 +52,7 @@
 (÷) ∷ Fractional α ⇒ α → α → α
 (÷) = (/)
 
-{- |
+{-|
 (&#x22C5;) = ('*')
 
 U+22C5, DOT OPERATOR
@@ -59,7 +60,7 @@
 (⋅) ∷ Num α ⇒ α → α → α
 (⋅) = (*)
 
-{- |
+{-|
 (&#x22A5;) = 'undefined'
 
 U+22A5, UP TACK
diff --git a/base-unicode-symbols.cabal b/base-unicode-symbols.cabal
--- a/base-unicode-symbols.cabal
+++ b/base-unicode-symbols.cabal
@@ -1,25 +1,24 @@
 name:          base-unicode-symbols
-version:       0.1.1
+version:       0.1.2
 cabal-version: >=1.6
 build-type:    Simple
 stability:     experimental
-author:        Roel van Dijk
-maintainer:    vandijk.roel@gmail.com
-copyright:     (c) 2009 Roel van Dijk
+author:        Roel van Dijk <vandijk.roel@gmail.com>
+maintainer:    Roel van Dijk <vandijk.roel@gmail.com>
+copyright:     (c) 2009 Roel van Dijk <vandijk.roel@gmail.com>
 license:       BSD3
 license-file:  LICENSE
 category:
 synopsis:      Unicode alternatives for common functions and operators
 description:
-
   This package defines new symbols for a number of functions and
   operators in the base package.
-
   .
-
   All symbols are documented with their actual definition and
   information regarding their Unicode code point. They should be
   completely interchangeable with their definitions.
+  .
+  Original idea by P&#xE9;ter Divi&#xE1;nszky.
 
 source-repository head
   type:     darcs