1 files changed, 0 insertions, 2 deletions

diff --git a/lib/Numeric/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs
index 83464f4..a6b3174 100644
--- a/lib/Numeric/LinearAlgebra/Algorithms.hs
+++ b/lib/Numeric/LinearAlgebra/Algorithms.hs
@@ -167,8 +167,6 @@ vertical m = rows m >= cols m
 
 exactHermitian m = m `equal` ctrans m
 
-shSize m = "(" ++ show (rows m) ++"><"++ show (cols m)++")"
-
 --------------------------------------------------------------
 
 -- | Full singular value decomposition.