Move towards serializing saves/loads faster

src/Dodge/Render/Outline.hs

@@ -0,0 +1,14 @@
+module Dodge.Render.Outline
+    where
+import Picture
+
+hackOutline :: Color -> Float -> Picture -> Picture
+hackOutline col x pic = pictures 
+    (map (color col)
+    [ translate x 0 pic
+    , translate (-x) 0 pic
+    , translate 0 x pic
+    , translate 0 (-x) pic
+    ]
+    ) <> pic
+