Add battery shape/picture

src/Dodge/Data/Item/Scope.hs

@@ -11,8 +11,7 @@ import Data.Aeson.TH
 import Geometry.Data
 
 data Scope
-    = NoScope
-    | OpticScope
+    = OpticScope
         { -- | a camera offset
           _opticPos :: Point2  -- this should be relative to the camera rotation
                                 -- this means that when the camera rotates when firing etc,

src/Dodge/Data/Item/Use.hs

@@ -64,9 +64,7 @@ data ItemUse
         , _tgID :: Maybe Int
         , _tgActive :: Bool
         }
-    | UseBulletMod
-        { _ubMod :: BulletMod
-        }
+    | UseBulletMod { _ubMod :: BulletMod }
     deriving (Eq, Show, Read)
 
 data TriggerType = AutoTrigger | HammerTrigger