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,11 +1,14 @@
-module Dodge.Bullet.Draw
-    ( drawBul
-    ) where
+module Dodge.Bullet.Draw (
+    drawBul,
+) where
+
 import Dodge.Data.Bullet
-import Picture
 import Linear
+import Picture
+
 drawBul :: Bullet -> Picture
-drawBul pt = setLayer BloomNoZWrite
-    . setDepth 20 
-    . color (V4 200 200 200 2)
-    $ thickLine (_buWidth pt) [_buOldPos pt, _buPos pt]
+drawBul pt =
+    setLayer BloomNoZWrite
+        . setDepth 20
+        . color (V4 200 200 200 2)
+        $ thickLine (_buWidth pt) [_buOldPos pt, _buPos pt]