Hlint pass

src/Dodge/Room/Foreground.hs

@@ -55,7 +55,7 @@ highPipe h x@(xx,xy) y =
     ]
   where
     (a,b) = y -.- x
-    (a',b') = 10 *.* (normalizeV $ vNormal (a,b))
+    (a',b') = 10 *.* normalizeV (vNormal (a,b))
 
 girderZ :: Float -> Point2 -> Point2 -> Picture
 girderZ w x y = setDepth 50 $ color red $ pictures $