Cleanup

src/Dodge/Item/Draw/SPic.hs

@@ -32,7 +32,7 @@ equipItemSPic et _ = case et of
     FRONTARMOUR ->
         ( mempty
         , setDepth 20 $
-            pictures
+            fold
                 [ color yellow $ thickArc 0 (pi / 2) 10 5
                 , color yellow $ thickArc (3 * pi / 2) (2 * pi) 10 5
                 ]
@@ -498,7 +498,7 @@ detectorColor dt = case dt of
 keyPic :: Picture
 keyPic =
     color green $
-        pictures
+        fold
             [ translate (-4) 0 $ thickCircle 4 2
             , thickLine 2 $ map toV2 [(0, 0), (8, 0), (8, -4)]
             , thickLine 2 $ map toV2 [(4, 0), (4, -4)]

src/Dodge/Item/Weapon/Grenade.hs

@@ -59,11 +59,9 @@ import Shape
 grenadePic :: Int -> SPic
 grenadePic time = 
     ( colorSH (dark $ dark green) $ upperPrismPolyHalf Small Typical 5 $ polyCirc 3 5
-    , pictures 
-        [ color green $ arc (degToRad $ (179 * fromIntegral time / 50) - 180 ) 
+    , color green $ arc (degToRad $ (179 * fromIntegral time / 50) - 180 ) 
                             (degToRad $ 180 - (179 * fromIntegral time / 50) ) 
                             5
-        ]
     )
 
 --grenadeDraw :: Float -> Prop -> SPic