Commit mid add time scroll

src/Dodge/Data/Item/HeldScroll.hs

@@ -19,6 +19,7 @@ data HeldScroll
         { _hsInt :: Int
         , _hsMaxInt :: Int
         }
+    | HeldScrollTime
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''HeldScroll

src/Dodge/Data/Item/HeldUse.hs

@@ -10,7 +10,7 @@ import Data.Aeson.TH
 import Dodge.Data.CamouflageStatus
 import Dodge.Data.Item.Combine
 
-data HeldUse
+data Huse
     = HeldDoNothing
     | HeldUseAmmoParams
     | HeldOverNozzlesUseGasParams
@@ -94,5 +94,5 @@ data HeldMod
 deriveJSON defaultOptions ''Cuse
 deriveJSON defaultOptions ''HeldMod
 deriveJSON defaultOptions ''Euse
-deriveJSON defaultOptions ''HeldUse
+deriveJSON defaultOptions ''Huse
 deriveJSON defaultOptions ''Luse

src/Dodge/Data/Item/Use.hs

@@ -25,7 +25,7 @@ import Dodge.Data.Item.HeldDelay
 
 data ItemUse
     = HeldUse
-        { _heldUse :: HeldUse
+        { _heldUse :: Huse
         , _heldDelay :: UseDelay
         , _heldMods :: HeldMod
         , _heldHammer :: HammerPosition