diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-11-22 10:08:14 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-11-22 10:08:23 +0100 |
| commit | 5f8b9ea3a9bacfec0fb1558a0199ea7952b2641e (patch) | |
| tree | 1c9b01b1511850c70a5f0805406c17784043870b | |
| parent | 7e5ccb3402f97c1c7cff158147aeb863d429f885 (diff) | |
Improve error message for X.empty
| -rw-r--r-- | src/Data/Array/Mixed/XArray.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Array/Mixed/XArray.hs b/src/Data/Array/Mixed/XArray.hs index fa753bb..999ccc3 100644 --- a/src/Data/Array/Mixed/XArray.hs +++ b/src/Data/Array/Mixed/XArray.hs @@ -311,7 +311,7 @@ empty :: forall sh a. Storable a => IShX sh -> XArray sh a empty sh | Dict <- lemKnownNatRank sh = XArray (S.constant (shxToList sh) - (error "Data.Array.Mixed.empty: shape was not empty")) + (error $ "Data.Array.Mixed.empty: shape was not empty: " ++ show sh)) slice :: SNat i -> SNat n -> XArray (Just (i + n + k) : sh) a -> XArray (Just n : sh) a slice i n (XArray arr) = XArray (S.slice [(fromSNat' i, fromSNat' n)] arr) |