Commit on returning to work

src/Dodge/Data/Item/Use/Consumption.hs

@@ -31,6 +31,11 @@ data AmmoSource
     | AboveSource
     deriving (Eq, Show, Read) --Generic, Flat)
 
+data ExternalSourceType = BulletClip
+    | BulletBelt
+    | ElectricPower
+    deriving (Eq, Show, Read) --Generic, Flat)
+
 data InternalAmmo = InternalAmmo
     { _iaMax :: Int
     , _iaLoaded :: Int