lint

Author: phadej

src/Data/Aeson/TH.hs

@@ -1295,7 +1295,7 @@ dispatchFunByType jc jf conName tvMap list ty = do
 
         args :: [Q Exp]
         args
-            | list == Omit = zipWith (dispatchFunByType jc jf conName tvMap) (cycle [Omit])               rhsArgs
+            | list == Omit = map     (dispatchFunByType jc jf conName tvMap  Omit)                        rhsArgs
             | otherwise    = zipWith (dispatchFunByType jc jf conName tvMap) (cycle [Omit,Single,Plural]) (triple rhsArgs)
 
     itf <- isInTypeFamilyApp tyVarNames tyCon tyArgs

tests/UnitTests/OptionalFields/Common.hs

@@ -1,6 +1,5 @@
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DuplicateRecordFields #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE UndecidableInstances #-}