Cleanup

src/Dodge/Render/Connectors.hs

@@ -32,23 +32,15 @@ zConnectColMidX :: Point2 -> Point2 -> Float -> Color -> Color -> Color -> Color
 zConnectColMidX (V2 x y) (V2 a b) midx c1 c2 c3 c4 =
     lineCol $
         zip
-            ( map
-                toV2
-                [ (x, y)
-                , (midx, y)
-                , (midx, b)
-                , (a, b)
-                ]
-            )
+            [ V2 x y
+            , V2 midx y
+            , V2 midx b
+            , V2 a b
+            ]
             [c1, c2, c3, c4]
 
 lConnect :: Point2 -> Point2 -> Picture
-lConnect sp@(V2 _ y) ep@(V2 x _) =
-    line
-        [ sp
-        , V2 x y
-        , ep
-        ]
+lConnect sp@(V2 _ y) ep@(V2 x _) = line [sp, V2 x y, ep]
 
 -- this function is the reason for the incomplete-uni-patterns warning suppression
 lConnectMulti :: [Point2] -> Point2 -> Picture