Refactor, try to limit dependencies

src/Dodge/Beam/Draw.hs

@@ -1,4 +1,5 @@
 module Dodge.Beam.Draw where
+
 import Dodge.Data.Beam
 import Picture
 
@@ -8,10 +9,12 @@ drawBeam bd = case bd of
     BeamDrawColor _ -> basicDrawBeam
 
 basicDrawBeam :: Beam -> Picture
-basicDrawBeam bm = setLayer BloomNoZWrite $ pictures
-    [ setDepth 19   . color (brightX 0 0.5 col) $ thickLine 20 ps
-    , setDepth 19.5 . color (brightX 10 1 col)  $ thickLine 3  ps
-    ]
+basicDrawBeam bm =
+    setLayer BloomNoZWrite $
+        pictures
+            [ setDepth 19 . color (brightX 0 0.5 col) $ thickLine 20 ps
+            , setDepth 19.5 . color (brightX 10 1 col) $ thickLine 3 ps
+            ]
   where
     col = _bmColor bm
     ps = _bmFirstPoints bm