mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
Don’t bind variables we don’t use.
This commit is contained in:
parent
0628793ab4
commit
acd19b4502
@ -14,8 +14,8 @@ zip :: Both [a] -> [Both a]
|
||||
zip = zipWith both
|
||||
|
||||
zipWith :: (a -> a -> b) -> Both [a] -> [b]
|
||||
zipWith f (Both ([], _)) = []
|
||||
zipWith f (Both (_, [])) = []
|
||||
zipWith _ (Both ([], _)) = []
|
||||
zipWith _ (Both (_, [])) = []
|
||||
zipWith f (Both (a : as, b : bs)) = f a b : zipWith f (both as bs)
|
||||
|
||||
unzip :: [Both a] -> Both [a]
|
||||
|
Loading…
Reference in New Issue
Block a user