Move line width to first argument

2022-02-10 11:31:55 +00:00
parent 700ab8d930
commit ede5a4e5d0
5 changed files with 12 additions and 12 deletions
@@ -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