summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLars-Dominik Braun <lars@6xq.net>2022-09-03 15:33:13 +0200
committerLars-Dominik Braun <lars@6xq.net>2022-09-03 15:33:13 +0200
commit0a2845feb8e5436d0840ed5c87fd379ff2ddd569 (patch)
tree4e956944895bd6f78f9f19f1dc41faa9d597d1a3 /src
parent75f487a3747b07e62f4cc67fd8eb6cc43299cdfd (diff)
downloadpesto-0a2845feb8e5436d0840ed5c87fd379ff2ddd569.tar.gz
pesto-0a2845feb8e5436d0840ed5c87fd379ff2ddd569.tar.bz2
pesto-0a2845feb8e5436d0840ed5c87fd379ff2ddd569.zip
lint: Drop argument unpacking and error case
Diffstat (limited to 'src')
-rw-r--r--src/lib/Codec/Pesto/Lint.lhs3
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" []