Merge pull request #545 from bos/hlint

Upgrade to hlint 2.0.5

Author: bergmark

Data/Aeson/Encoding/Builder.hs

@@ -1,6 +1,5 @@
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE OverloadedStrings #-}
 
 -- |
 -- Module:      Data.Aeson.Encoding.Builder

Data/Aeson/Parser.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
-
 -- |
 -- Module:      Data.Aeson.Parser
 -- Copyright:   (c) 2012-2016 Bryan O'Sullivan

Data/Aeson/Types/FromJSON.hs

@@ -1539,8 +1539,8 @@ instance (FromJSONKey k, Ord k) => FromJSON1 (M.Map k) where
         FromJSONKeyTextParser f -> withObject "Map k v" $
             H.foldrWithKey (\k v m -> M.insert <$> f k <?> Key k <*> p v <?> Key k <*> m) (pure M.empty)
         FromJSONKeyValue f -> withArray "Map k v" $ \arr ->
-            M.fromList <$> (Tr.sequence .
-                zipWith (parseIndexedJSONPair f p) [0..] . V.toList $ arr)
+            fmap M.fromList . Tr.sequence .
+                zipWith (parseIndexedJSONPair f p) [0..] . V.toList $ arr
     {-# INLINE liftParseJSON #-}
 
 instance (FromJSONKey k, Ord k, FromJSON v) => FromJSON (M.Map k v) where
@@ -1619,8 +1619,8 @@ instance (FromJSONKey k, Eq k, Hashable k) => FromJSON1 (H.HashMap k) where
         FromJSONKeyTextParser f -> withObject "HashMap k v" $
             H.foldrWithKey (\k v m -> H.insert <$> f k <?> Key k <*> p v <?> Key k <*> m) (pure H.empty)
         FromJSONKeyValue f -> withArray "Map k v" $ \arr ->
-            H.fromList <$> (Tr.sequence .
-                zipWith (parseIndexedJSONPair f p) [0..] . V.toList $ arr)
+            fmap H.fromList . Tr.sequence .
+                zipWith (parseIndexedJSONPair f p) [0..] . V.toList $ arr
       where
         uc :: Parser (H.HashMap Text v) -> Parser (H.HashMap k v)
         uc = unsafeCoerce

Makefile

@@ -1,2 +1,2 @@
 lint:
-	hlint --cpp-include include/ --cpp-file .stack-work/dist/*/*Cabal-*/build/autogen/cabal_macros.h .
+	hlint --cpp-include include/ --cpp-file .stack-work/dist/*/*Cabal-*/build/autogen/cabal_macros.h Data/ attoparsec-iso8601/ benchmarks/ examples/ ffi/ pure/ tests/

benchmarks/Options.hs

@@ -1,4 +1,4 @@
-module Options where
+module Options (opts) where
 
 import Prelude ()
 import Prelude.Compat

tests/DataFamilies/Encoders.hs

@@ -2,7 +2,7 @@
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE TemplateHaskell #-}
 
-module DataFamilies.Encoders where
+module DataFamilies.Encoders (module DataFamilies.Encoders) where
 
 import Prelude ()
 import Prelude.Compat

tests/DataFamilies/Types.hs

@@ -8,7 +8,7 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE TypeFamilies #-}
 
-module DataFamilies.Types where
+module DataFamilies.Types (module DataFamilies.Types) where
 
 import Prelude ()
 import Prelude.Compat

tests/Encoders.hs

@@ -2,7 +2,7 @@
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE TemplateHaskell #-}
 
-module Encoders where
+module Encoders (module Encoders) where
 
 import Prelude ()
 import Prelude.Compat

tests/JSONTestSuite/parsers/test_haskell-aeson/src/Main.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 
-module Main where
+module Main (main) where
 
 import qualified Data.Aeson as Aeson
 import qualified Data.ByteString as Bytes

tests/Options.hs

@@ -1,4 +1,4 @@
-module Options where
+module Options (module Options) where
 
 import Prelude ()
 import Prelude.Compat