Push item use delay inside datatype, currently broken

2021-11-27 16:37:30 +00:00
parent 224db733f6
commit 8639b2d428
21 changed files with 162 additions and 177 deletions
@@ -1,11 +1,16 @@
 {-# LANGUAGE StrictData #-}
-module Dodge.Item.Data
-    where
+{-# LANGUAGE TemplateHaskell #-}
+module Dodge.Item.Data where
+import Control.Lens
+data HammerType
+    = NoHammer
+    | HasHammer {_hammerPosition :: HammerPosition}
+  deriving
+    (Eq, Ord, Show)
 data HammerPosition 
    = HammerDown
    | HammerReleased
    | HammerUp
-    | NoHammer
  deriving
    (Eq, Ord, Show)
 data ItemIdentity 
@@ -49,3 +54,4 @@ data AimStance
    | LeaveHolstered
  deriving 
    (Eq,Show,Ord,Enum)
+makeLenses ''HammerType