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