Fix isNull for L and LN

lehins · Jul 31, 2021 · b6b5881 · b6b5881
1 parent 09b8d73
commit b6b5881
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/massiv/src/Data/Massiv/Core/List.hs b/massiv/src/Data/Massiv/Core/List.hs
@@ -140,7 +140,7 @@ instance Shape LN Ix2 where
   {-# INLINE linearSize #-}
   linearSizeHint = lengthHintList . unList
   {-# INLINE linearSizeHint #-}
-  isNull = null . unList
+  isNull = getAll . foldMap (All . null . unList) . unList
   {-# INLINE isNull #-}
   outerSize arr =
     case unList arr of
@@ -163,7 +163,7 @@ instance (Shape LN (Ix (n - 1)), Index (IxN n)) => Shape LN (IxN n) where
   {-# INLINE linearSize #-}
   linearSizeHint = lengthHintList . unList
   {-# INLINE linearSizeHint #-}
-  isNull = null . unList
+  isNull = getAll . foldMap (All . isNull) . unList
   {-# INLINE isNull #-}
   outerSize arr =
     case unList arr of