diff options
-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" [] |