Use strict tuples for SPics

src/Dodge/Wall/Draw.hs

@@ -9,12 +9,9 @@ drawWall wd = case wd of
     DrawForceField -> drawForceField
 
 drawForceField :: Wall -> SPic
-drawForceField wl =
-    ( mempty
-    , setLayer BloomLayer
+drawForceField wl = noShape . setLayer BloomLayer
         . setDepth 20
         . color (_wlColor wl)
         $ thickLine 5 [a, b]
-    )
   where
     (a, b) = _wlLine wl