Cleanup

2023-05-20 15:06:05 +01:00
parent 6c71e1d5bb
commit f2183e9954
25 changed files with 69 additions and 86 deletions
@@ -3,12 +3,12 @@ module Dodge.Render.Outline
 import Picture

 hackOutline :: Color -> Float -> Picture -> Picture
-hackOutline col x pic = pictures 
-    (map (color col)
+hackOutline col x pic = foldMap 
+    (color col)
    [ translate x 0 pic
    , translate (-x) 0 pic
    , translate 0 x pic
    , translate 0 (-x) pic
    ]
-    ) <> pic
+    <> pic