From e0ade28ab642c043501493fe7192b626a6a68115 Mon Sep 17 00:00:00 2001
From: Charles <sircharlesaze@gmail.com>
Date: Thu, 12 Mar 2020 16:19:55 +0100
Subject: Caveman parsing working

(brain hurty)
---
 src/matrix.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/matrix.hs')

diff --git a/src/matrix.hs b/src/matrix.hs
index 21c85f0..c2e6654 100644
--- a/src/matrix.hs
+++ b/src/matrix.hs
@@ -2,8 +2,8 @@ module Matrix where
 
 import Data.List
 
-
-newtype Matrix a = Matrix { getMatrix :: [[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)
-- 
cgit