diff options
| -rw-r--r-- | src/Array.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Array.hs b/src/Array.hs index c48e442..c939419 100644 --- a/src/Array.hs +++ b/src/Array.hs @@ -27,7 +27,7 @@ deriving instance Show (Index n) deriving instance Eq (Index n) shapeSize :: Shape n -> Int -shapeSize ShNil = 0 +shapeSize ShNil = 1 shapeSize (ShCons sh n) = shapeSize sh * n fromLinearIndex :: Shape n -> Int -> Index n |