diff --git a/CHANGES.txt b/CHANGES.txt
--- a/CHANGES.txt
+++ b/CHANGES.txt
@@ -1,5 +1,7 @@
 Changelog for HLint
 
+1.9.20
+    #122, fix the zipWith/repeat hint
 1.9.19
     #119, don't remove RecursiveDo if they use the rec statement
     Add a suggestion concatMap/map ==> concatMap
diff --git a/data/Default.hs b/data/Default.hs
--- a/data/Default.hs
+++ b/data/Default.hs
@@ -166,7 +166,7 @@
 error = iterate id ==> repeat
     where _ = noQuickCheck -- takes forever
 error = zipWith f (repeat x) ==> map (f x)
-error = zipWith f x (repeat y) ==> map (\x -> f x y) x
+error = zipWith f y (repeat z) ==> map (\x -> f x z) y
 
 -- BY
 
@@ -634,6 +634,7 @@
 f condition tChar tBool = if condition then _monoField tChar else _monoField tBool
 foo = maybe Bar{..} id -- Data.Maybe.fromMaybe Bar{..}
 foo = (\a -> Foo {..}) 1
+foo = zipWith SymInfo [0 ..] (repeat ty) -- map (\ x -> SymInfo x ty) [0 ..]
 
 import Prelude \
 yes = flip mapM -- Control.Monad.forM
diff --git a/hlint.cabal b/hlint.cabal
--- a/hlint.cabal
+++ b/hlint.cabal
@@ -1,7 +1,7 @@
 cabal-version:      >= 1.6
 build-type:         Simple
 name:               hlint
-version:            1.9.19
+version:            1.9.20
 license:            BSD3
 license-file:       LICENSE
 category:           Development
diff --git a/src/Hint/Extensions.hs b/src/Hint/Extensions.hs
--- a/src/Hint/Extensions.hs
+++ b/src/Hint/Extensions.hs
@@ -102,7 +102,6 @@
 
 
 usedExt :: Extension -> Module_ -> Bool
-usedExt (UnknownExtension "DeriveGeneric") = hasDerive ["Generic","Generic1"]
 usedExt (EnableExtension x) = used x
 usedExt _ = const True
 
@@ -140,6 +139,7 @@
 used DeriveFunctor = hasDerive ["Functor"]
 used DeriveFoldable = hasDerive ["Foldable"]
 used DeriveTraversable = hasDerive ["Traversable"]
+used DeriveGeneric = hasDerive ["Generic","Generic1"]
 used GeneralizedNewtypeDeriving = any (`notElem` noNewtypeDeriving) . fst . derives
 used Arrows = hasS f
     where f Proc{} = True