Commit before attempting to move some data into a "local" world type

2021-11-28 01:32:42 +00:00
parent 3e64e33232
commit 24480bbe52
10 changed files with 47 additions and 21 deletions
@@ -1,3 +1,8 @@
 module Dodge.Hammer where
--import Dodge.Item.Data
+import Dodge.Item.Data
+
+moveHammerUp :: HammerPosition -> HammerPosition
+moveHammerUp HammerDown     = HammerReleased
+moveHammerUp HammerReleased = HammerUp
+moveHammerUp HammerUp       = HammerUp