chore: make hlint happy

src/Output.hs

@@ -89,7 +89,7 @@ outputVague :: [Issue] -> String
 outputVague i = (++ "\n") . intercalate "\n" $ uncurry showVague <$>
     removeNoOccurences (count <$> occurenceList)
   where
-    removeNoOccurences l = filter (\(_, y) -> y /= 0) l
+    removeNoOccurences = filter ((/=0) . snd)
     count (x, _, _) = (x, length $ filter (== x) i)
     occurenceList = [(x, y, 0 :: Int)| (x, y) <- issues]
 

src/Parser.hs

@@ -135,7 +135,7 @@ inspectMatch _ _ = mempty
 inspectDecl :: Monoid a => (Node -> a) -> Decl SrcSpanInfo -> a
 inspectDecl f d@(PatBind _ (PVar _ _) a _) = f (NDec d) <> inspectRhs f a
 inspectDecl f d@(FunBind _ lst) = f (NDec d) <> foldMap (inspectMatch f) lst
-inspectDecl f d = f (NDec d) <> mempty
+inspectDecl f d = f (NDec d)
 
 explore :: Monoid a => (Node -> a) -> [Decl SrcSpanInfo] -> [a]
 explore f = map (inspectDecl f)

src/rules/BadGuard.hs

@@ -18,8 +18,8 @@ check presult = join $ explore checkGuard (decls presult)
   where checkGuard (NDec (FunBind _ m)) =
           fold $ zipWith toWarns (vars m) (matchs m)
         checkGuard _ = []
-        vars match = map (inspectMatch collectVar) match
-        matchs match = map (inspectMatch collectGuards) match
+        vars = map (inspectMatch collectVar)
+        matchs = map (inspectMatch collectGuards)
         collectVar (NPat (PVar _ idt)) = [getIdent idt]
         collectVar _ = []
         collectGuards (NSmt (Qualifier _ expr)) = [expr]

src/rules/NoSig.hs

@@ -17,7 +17,8 @@ check presult = join $ map genWarn binds
   where sigsAndBinds = explore collectSigs (decls presult)
         sigs = foldMap fst sigsAndBinds
         binds = foldMap getBind sigsAndBinds
-        getBind (_,l) = if null l then [] else [head l]
+        getBind (_, []) = []
+        getBind (_, x:_) = [x]
         genWarn (fct, ssi) | fct `notElem` sigs =
                               [makeWarn NoSig (getLoc ssi) $ StringArg fct]
         genWarn _ = []