Move item effect functions

src/Dodge/Data/Hammer.hs

@@ -0,0 +1,16 @@
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+module Dodge.Data.Hammer where
+import Control.Lens
+data HammerType
+    = NoHammer
+    | HasHammer {_hammerPosition :: HammerPosition}
+  deriving
+    (Eq, Ord, Show)
+data HammerPosition 
+    = HammerDown
+    | HammerReleased
+    | HammerUp
+  deriving
+    (Eq, Ord, Show)
+makeLenses ''HammerType