diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-10-10 22:35:52 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-10-10 22:35:52 +0200 |
| commit | f1b28a3090d47c75dd63e05469059b8f871cc10c (patch) | |
| tree | 3d9358ac61fced55714acaeeed19b4bfb8087034 /src/Data/Array/Mixed/Shape.hs | |
| parent | 62d0b4a515e807e15e8438fbe2f9ee87ccf5d911 (diff) | |
Fix error message in listxFromList
Diffstat (limited to 'src/Data/Array/Mixed/Shape.hs')
| -rw-r--r-- | src/Data/Array/Mixed/Shape.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Array/Mixed/Shape.hs b/src/Data/Array/Mixed/Shape.hs index a8f58ef..1d3e60a 100644 --- a/src/Data/Array/Mixed/Shape.hs +++ b/src/Data/Array/Mixed/Shape.hs @@ -106,7 +106,7 @@ listxFromList topssh topl = go topssh topl go :: StaticShX sh' -> [i] -> ListX sh' (Const i) go ZKX [] = ZX go (_ :!% sh) (i : is) = Const i ::% go sh is - go _ _ = error $ "IsList(ListX): Mismatched list length (type says " + go _ _ = error $ "listxFromList: Mismatched list length (type says " ++ show (ssxLength topssh) ++ ", list has length " ++ show (length topl) ++ ")" |