diff options
| author | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2026-04-07 16:39:01 +0200 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2026-04-07 16:39:04 +0200 |
| commit | 933153197b3f2e1e75b8d88b0da6d99a41e8f471 (patch) | |
| tree | 472ea5cf884ce89d946eefa3d8da03657c693549 /src/Data/Array/Nested/Mixed/Shape.hs | |
| parent | 574468a37a0e662c5d63d1cf3f8f876b11b4e332 (diff) | |
Apply some hlint hints
Diffstat (limited to 'src/Data/Array/Nested/Mixed/Shape.hs')
| -rw-r--r-- | src/Data/Array/Nested/Mixed/Shape.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Data/Array/Nested/Mixed/Shape.hs b/src/Data/Array/Nested/Mixed/Shape.hs index 25cecb5..a5e3ced 100644 --- a/src/Data/Array/Nested/Mixed/Shape.hs +++ b/src/Data/Array/Nested/Mixed/Shape.hs @@ -16,7 +16,6 @@ {-# LANGUAGE StandaloneDeriving #-} {-# LANGUAGE StandaloneKindSignatures #-} {-# LANGUAGE StrictData #-} -{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE TypeOperators #-} @@ -491,7 +490,7 @@ shxFromList (StaticShX topssh) topl = ShX $ go topssh topl go ZH _ = error $ "shxFromList: List too long (type says " ++ show (listhLength topssh) ++ ")" go (ConsKnown sn sh) (i : is) | i == fromSNat' sn = ConsKnown sn (go sh is) - | otherwise = error $ "shxFromList: Value does not match typing" + | otherwise = error "shxFromList: Value does not match typing" go (ConsUnknown () sh) (i : is) = ConsUnknown i (go sh is) go _ _ = error $ "shxFromList: List too short (type says " ++ show (listhLength topssh) ++ ")" |