From 18c9cfd7c1fb4baf1789f178a8d56ddb8f0f1456 Mon Sep 17 00:00:00 2001 From: Charles Date: Sat, 14 Mar 2020 12:41:34 +0100 Subject: Draft expr compatibility --- src/matrix.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/matrix.hs') diff --git a/src/matrix.hs b/src/matrix.hs index c2e6654..38780bb 100644 --- a/src/matrix.hs +++ b/src/matrix.hs @@ -1,10 +1,10 @@ module Matrix where -import Data.List +-- import Data.List -newtype Matrix a = Matrix { getMatrix :: [MatrixRow a] } -type MatrixRow a = [a] +-- newtype Matrix a = Matrix { getMatrix :: [MatrixRow a] } +-- type MatrixRow a = [a] -instance Show a => Show (Matrix a) where - show (Matrix m) = intercalate "\n" (map showLine m) - where showLine l = "[ " ++ intercalate " , " (map show l) ++ " ]" +-- instance Show a => Show (Matrix a) where +-- show (Matrix m) = intercalate "\n" (map showLine m) +-- where showLine l = "[ " ++ intercalate " , " (map show l) ++ " ]" -- cgit