From 56eb38203d29bf2a9d21c3dc66c07b3d4f92651b Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Tue, 29 Apr 2014 19:17:48 +0200
Subject: added 2 em dash for vertical concatenation

---
 lib/Numeric/LinearAlgebra/Util.hs | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Numeric/LinearAlgebra/Util.hs b/lib/Numeric/LinearAlgebra/Util.hs
index b38aeb2..be01bc1 100644
--- a/lib/Numeric/LinearAlgebra/Util.hs
+++ b/lib/Numeric/LinearAlgebra/Util.hs
@@ -10,6 +10,7 @@ Stability   :  provisional
 
 -}
 -----------------------------------------------------------------------------
+{-# OPTIONS_HADDOCK hide #-}
 
 module Numeric.LinearAlgebra.Util(
     
@@ -19,7 +20,7 @@ module Numeric.LinearAlgebra.Util(
     diagl,
     row,
     col,
-    (&), (¦), (#),
+    (&), (¦), (——), (#),
     (?), (¿),
     rand, randn,
     cross,
@@ -114,12 +115,20 @@ infixl 3 &
 (&) :: Vector Double -> Vector Double -> Vector Double
 a & b = vjoin [a,b]
 
--- | (00A6) horizontal concatenation of real matrices
+-- | horizontal concatenation of real matrices
+--
+-- (0x00a6 broken bar)
 infixl 3 ¦
 (¦) :: Matrix Double -> Matrix Double -> Matrix Double
 a ¦ b = fromBlocks [[a,b]]
 
 -- | vertical concatenation of real matrices
+--
+-- (0x2014, em dash)
+(——) :: Matrix Double -> Matrix Double -> Matrix Double
+infixl 2 ——
+a —— b = fromBlocks [[a],[b]]
+
 (#) :: Matrix Double -> Matrix Double -> Matrix Double
 infixl 2 #
 a # b = fromBlocks [[a],[b]]
-- 
cgit v1.2.3