diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2022-09-03 15:33:13 +0200 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2022-09-03 15:33:13 +0200 |
| commit | 0a2845feb8e5436d0840ed5c87fd379ff2ddd569 (patch) | |
| tree | 4e956944895bd6f78f9f19f1dc41faa9d597d1a3 | |
| parent | 75f487a3747b07e62f4cc67fd8eb6cc43299cdfd (diff) | |
| download | pesto-0a2845feb8e5436d0840ed5c87fd379ff2ddd569.tar.gz pesto-0a2845feb8e5436d0840ed5c87fd379ff2ddd569.tar.bz2 pesto-0a2845feb8e5436d0840ed5c87fd379ff2ddd569.zip | |
lint: Drop argument unpacking and error case
| -rw-r--r-- | src/lib/Codec/Pesto/Lint.lhs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/lib/Codec/Pesto/Lint.lhs b/src/lib/Codec/Pesto/Lint.lhs index 45e3ef6..58f9ab0 100644 --- a/src/lib/Codec/Pesto/Lint.lhs +++ b/src/lib/Codec/Pesto/Lint.lhs @@ -295,8 +295,7 @@ multiple nodes. > buildMap m (nodeid, Alternative qty) = M.insertWith append (getObject qty) [nodeid] m > buildMap m _ = m > getObject (Quantity _ _ object) = map toLower object -> append [a] b = insert a b -> append _ _ = error "unreachable" +> append a b = insert (head a) b > testUniqueNames = [ > cmpLint "+a >x +b >y *x *y >foo" [] |