More hlinting

src/Dodge/Render/InfoBox.hs

@@ -1,9 +1,9 @@
+{-# LANGUAGE TupleSections #-}
 module Dodge.Render.InfoBox (
     renderInfoListAt,
     renderInfoListsAt,
 ) where
 
--- this should be imported implicitly
 import Dodge.Base
 import Dodge.Data.Camera
 import Dodge.Data.CardinalPoint
@@ -13,6 +13,7 @@ import Dodge.Render.Connectors
 import Dodge.Render.List
 import Geometry
 import Picture
+import Control.Lens
 
 renderInfoListAt ::
     Float ->
@@ -22,7 +23,7 @@ renderInfoListAt ::
     (Point2, [String]) ->
     Picture
 renderInfoListAt x y cfig cam (p, ss) =
-    toTopLeft cfig (renderListAt x y (zip ss (repeat white)))
+    toTopLeft cfig (renderListAt x y (ss <&> (,white)))
         <> color white (lConnect (V2 (x - hw) (hh -25 - y)) (worldPosToScreen cam p))
         <> toTopLeft
             cfig

src/Dodge/Render/ShapePicture.hs

@@ -49,7 +49,7 @@ worldSPic cfig u =
     pointIsClose = cullPoint cfig w
 
 drawBlock :: Block -> SPic
-drawBlock = (noPic . _blDraw)
+drawBlock = noPic . _blDraw
 
 drawChasm :: [Point2] -> SPic
 drawChasm = foldMap (Prelude.uncurry drawCliff) . loopPairs