Fix some hlint issues

Author: Ryan Trinkle

src/Reflex/Dynamic/TH.hs

@@ -47,8 +47,8 @@ qDynPure qe = do
         _ -> gmapM f d
   (e', exprsReversed) <- runStateT (gmapM f e) []
   let exprs = reverse exprsReversed
-      arg = foldr (\a b -> ConE 'FHCons `AppE` a `AppE` b) (ConE 'FHNil) $ map snd exprs
-      param = foldr (\a b -> ConP 'HCons [VarP a, b]) (ConP 'HNil []) $ map fst exprs
+      arg = foldr (\a b -> ConE 'FHCons `AppE` snd a `AppE` b) (ConE 'FHNil) exprs
+      param = foldr (\a b -> ConP 'HCons [VarP (fst a), b]) (ConP 'HNil []) exprs
   [| $(return $ LamE [param] e') <$> distributeFHListOverDynPure $(return arg) |]
 
 -- | Antiquote a 'Dynamic' expression.  This can /only/ be used inside of a

src/Reflex/FunctorMaybe.hs

@@ -28,6 +28,6 @@ class FunctorMaybe f where
 instance FunctorMaybe Maybe where
   fmapMaybe = (=<<)
 
--- | @fmapMaybe f = catMaybes . fmap f@
+-- | @fmapMaybe = mapMaybe@
 instance FunctorMaybe [] where
-  fmapMaybe f = catMaybes . fmap f
+  fmapMaybe = mapMaybe