Move line width to first argument

src/Dodge/Particle/Bullet/Draw.hs

@@ -8,4 +8,4 @@ drawBul :: Particle -> Picture
 drawBul pt = setLayer 1 
     . setDepth 20 
     . color (_ptColor pt) 
-    $ thickLine (take 3 $ _ptTrail pt) (_ptWidth pt)
+    $ thickLine (_ptWidth pt) (take 3 $ _ptTrail pt)

src/Dodge/Picture/SizeInvariant.hs

@@ -69,7 +69,7 @@ fixedSizePicClampArrow xbord ybord pic p cfig w = pictures
     windowPoint = intersectSegPolyFirst campos p winps
     arrowPic = case borderPoint of
         Nothing -> blank
-        Just bp -> thickLine [bp, fromMaybe p windowPoint] 5
+        Just bp -> thickLine 5 [bp, fromMaybe p windowPoint]
     (V2 x y) = fromMaybe p borderPoint
     campos = _cameraCenter w
     theScale = 1 / _cameraZoom w

src/Dodge/Render/ShapePicture.hs

@@ -94,7 +94,7 @@ drawPathing :: Configuration -> World -> Picture
 drawPathing cfig w
     | _debug_pathing cfig 
         = -- setLayer 5 $ 
-        (color green . pictures . map (flip thickLine 5 . tflat2) $ graphToEdges gr)
+        (color green . pictures . map (thickLine 5 . tflat2) $ graphToEdges gr)
         <> concatMap dispInc (graphToIncidence gr)
     | otherwise = []
   where

src/Dodge/Room/Foreground.hs

@@ -15,9 +15,9 @@ highDiagonalMesh
     -> Float    -- ^ vertical distance between lines
     -> Picture
 highDiagonalMesh pa pb w d = setDepth (-0.2) $ pictures $
-    map (flip thickLine 3 . tflat2) (diagonalLinesRect pb pa w d (3*pi/4))
+    map (thickLine 3 . tflat2) (diagonalLinesRect pb pa w d (3*pi/4))
     ++ 
-    map (flip thickLine 3 . tflat2) (diagonalLinesRect pb pc (negate h) d (pi/4))
+    map (thickLine 3 . tflat2) (diagonalLinesRect pb pc (negate h) d (pi/4))
   where
     pc = pb +.+ w *.* normalizeV (vNormal (pb -.- pa))
     h = dist pa pb