diff --git a/data/Default.hs b/data/Default.hs
--- a/data/Default.hs
+++ b/data/Default.hs
@@ -82,6 +82,7 @@
 error = span (not . p) ==> break p
 error = break (not . p) ==> span p
 error = concatMap (++ "\n") ==> unlines
+error = map id ==> id
 error = or (map p x) ==> any p x
 error = and (map p x) ==> all p x
 error = zipWith (,) ==> zip
@@ -101,12 +102,16 @@
 error "Use any" = null (filter f x) ==> not (any f x)
 error "Use any" = filter f x == [] ==> not (any f x)
 error = filter f x /= [] ==> any f x
+error = any id ==> or
+error = all id ==> and
 error = any ((==) a) ==> elem a
 error = any (== a) ==> elem a
 error = any (a ==) ==> elem a
 error = all ((/=) a) ==> notElem a
 error = all (/= a) ==> notElem a
 error = all (a /=) ==> notElem a
+error = elem True ==> or
+error = notElem False ==> and
 error = findIndex ((==) a) ==> elemIndex a
 error = findIndex (a ==) ==> elemIndex a
 error = findIndex (== a) ==> elemIndex a
@@ -249,6 +254,8 @@
 error = sequence_ (replicate n x) ==> Control.Monad.replicateM_ n x
 error = mapM f (map g x) ==> mapM (f . g) x
 error = mapM_ f (map g x) ==> mapM_ (f . g) x
+error = mapM id ==> sequence
+error = mapM_ id ==> sequence_
 
 -- APPLICATIVE / TRAVERSABLE
 
diff --git a/hlint.cabal b/hlint.cabal
--- a/hlint.cabal
+++ b/hlint.cabal
@@ -1,13 +1,13 @@
 cabal-version:      >= 1.6
 build-type:         Simple
 name:               hlint
-version:            1.8.39
+version:            1.8.40
 license:            BSD3
 license-file:       LICENSE
 category:           Development
 author:             Neil Mitchell <ndmitchell@gmail.com>
 maintainer:         Neil Mitchell <ndmitchell@gmail.com>
-copyright:          Neil Mitchell 2006-2012
+copyright:          Neil Mitchell 2006-2013
 synopsis:           Source code suggestions
 description:
     HLint gives suggestions on how to improve your source code.