key-state 0.1.0 → 0.2.0
raw patch · 3 files changed
+29/−4 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ KeyState: isHeld :: KeyState a -> Bool
+ KeyState: isPressed :: KeyState a -> Bool
+ KeyState: isReleased :: KeyState a -> Bool
+ KeyState: isTouched :: KeyState a -> Bool
+ KeyState: isUntouched :: KeyState a -> Bool
Files
- key-state.cabal +8/−3
- library/KeyState.hs +20/−0
- package.yaml +1/−1
key-state.cabal view
@@ -1,9 +1,11 @@--- This file has been generated from package.yaml by hpack version 0.17.1.+-- This file has been generated from package.yaml by hpack version 0.20.0. -- -- see: https://github.com/sol/hpack+--+-- hash: 6b8b6e60b940dc1a27d7b9143d374d3b908fbf8f020a8afa5ca36b00ec8a6a2c name: key-state-version: 0.1.0+version: 0.2.0 synopsis: Manage key and button states and statuses description: Manage key and button states and statuses category: Game@@ -33,6 +35,8 @@ base >=4.7 && <5 exposed-modules: KeyState+ other-modules:+ Paths_key_state default-language: Haskell2010 test-suite key-state-tests@@ -44,8 +48,9 @@ ghc-options: -Wall -rtsopts -threaded -with-rtsopts=-N build-depends: base- , key-state , hspec+ , key-state other-modules: KeyStateSpec+ Paths_key_state default-language: Haskell2010
library/KeyState.hs view
@@ -6,6 +6,11 @@ , releasedKeyState , updateKeyState , maintainKeyState+ , isHeld+ , isPressed+ , isUntouched+ , isReleased+ , isTouched ) where data KeyStatus@@ -56,3 +61,18 @@ KeyStatus'Pressed -> KeyState KeyStatus'Held Nothing KeyStatus'Held -> KeyState KeyStatus'Held (Just $ delta + (case ksCounter of Nothing -> 0; Just counter -> counter)) KeyStatus'Released -> KeyState KeyStatus'Untouched Nothing++isHeld :: KeyState a -> Bool+isHeld ks = ksStatus ks == KeyStatus'Held++isPressed :: KeyState a -> Bool+isPressed ks = ksStatus ks == KeyStatus'Pressed++isUntouched :: KeyState a -> Bool+isUntouched ks = ksStatus ks == KeyStatus'Untouched++isReleased :: KeyState a -> Bool+isReleased ks = ksStatus ks == KeyStatus'Released++isTouched :: KeyState a -> Bool+isTouched ks = isPressed ks || isHeld ks
package.yaml view
@@ -1,5 +1,5 @@ name: key-state-version: '0.1.0'+version: '0.2.0' category: Game synopsis: Manage key and button states and statuses description: Manage key and button states and statuses