9 lines
197 B
Haskell
9 lines
197 B
Haskell
module Dodge.Hammer where
|
|
|
|
import Dodge.Data.Hammer
|
|
|
|
moveHammerUp :: HammerPosition -> HammerPosition
|
|
{-# INLINE moveHammerUp #-}
|
|
moveHammerUp HammerDown = HammerReleased
|
|
moveHammerUp _ = HammerUp
|