Refactor, try to limit dependencies

src/Dodge/Wall/Draw.hs

@@ -1,18 +1,20 @@
 module Dodge.Wall.Draw where
+
 import Dodge.Data.Wall
-import ShapePicture
 import Picture.Base
+import ShapePicture
 
 drawWall :: WallDraw -> Wall -> SPic
 drawWall wd = case wd of
     DrawForceField -> drawForceField
 
 drawForceField :: Wall -> SPic
-drawForceField wl = (mempty
+drawForceField wl =
+    ( mempty
     , setLayer BloomLayer
         . setDepth 20
         . color (_wlColor wl)
-        $ thickLine 5 [a,b]
+        $ thickLine 5 [a, b]
     )
   where
-    (a,b) = _wlLine wl
+    (a, b) = _wlLine wl