diff options
| author | Charles <sircharlesaze@gmail.com> | 2020-03-12 16:19:55 +0100 |
|---|---|---|
| committer | Charles <sircharlesaze@gmail.com> | 2020-03-13 12:30:49 +0100 |
| commit | e0ade28ab642c043501493fe7192b626a6a68115 (patch) | |
| tree | 7bfa065b5f80f6c245137244cb37d8691c02f488 /src/matrix.hs | |
| parent | 37e52bff39a1fe4d442cb253773252030c1cab8a (diff) | |
| download | computorv2-e0ade28ab642c043501493fe7192b626a6a68115.tar.gz computorv2-e0ade28ab642c043501493fe7192b626a6a68115.tar.bz2 computorv2-e0ade28ab642c043501493fe7192b626a6a68115.zip | |
Caveman parsing working
(brain hurty)
Diffstat (limited to 'src/matrix.hs')
| -rw-r--r-- | src/matrix.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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) |