9 lines
223 B
Haskell
9 lines
223 B
Haskell
module Dodge.Hammer where
|
|
import Dodge.Item.Data
|
|
|
|
moveHammerUp :: HammerPosition -> HammerPosition
|
|
moveHammerUp HammerDown = HammerReleased
|
|
moveHammerUp HammerReleased = HammerUp
|
|
moveHammerUp HammerUp = HammerUp
|
|
|