Statistics
| Branch: | Tag: | Revision:

root / htools / lint-hints.hs @ 36c70d4d

History | View | Annotate | Download (269 Bytes)

1 
-- The following two hints warn to simplify e.g. "map (\v -> (v,
2 
-- True)) lst" to "zip lst (repeat True)", which is more abstract
3 
warn = map (\v -> (v, x)) y ==> zip y (repeat x)
4 
  where _ = notIn v x
5 
warn = map (\v -> (x, v)) ==> zip (repeat x)
6 
  where _ = notIn v x