Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,9 +1,11 @@
 module Dodge.Spark.Draw where
+
 import Dodge.Data.Spark
 import Picture

 drawSpark :: Spark -> Picture
-drawSpark pt = setLayer BloomNoZWrite
-    . setDepth 20 
-    . color (_skColor pt)
-    $ thickLine (_skWidth pt) [_skOldPos pt, _skPos pt]
+drawSpark pt =
+    setLayer BloomNoZWrite
+        . setDepth 20
+        . color (_skColor pt)
+        $ thickLine (_skWidth pt) [_skOldPos pt, _skPos pt]