module Dodge.Hammer where import Dodge.Item.Data moveHammerUp :: HammerPosition -> HammerPosition moveHammerUp HammerDown = HammerReleased moveHammerUp HammerReleased = HammerUp moveHammerUp HammerUp = HammerUp