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