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