pine-0.1.0.0: src/Pine/Internal/Keyboard.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE LambdaCase #-}

module Pine.Internal.Keyboard
  ( keyboardState
  ) where

import qualified SDL
import Data.Map

data KeyStatus = Pressed | Released | Up | Down deriving (Eq)

keyboardState :: Map SDL.Keycode KeyStatus -> IO (Map SDL.Keycode KeyStatus)
keyboardState pState = do
  kbState <- SDL.getKeyboardState
  let nstate = diff pState (makeState kbState)
  pure nstate

diff :: Map SDL.Keycode KeyStatus -> Map SDL.Keycode KeyStatus -> Map SDL.Keycode KeyStatus
diff = undefined

makeState :: (SDL.Scancode -> Bool) -> Map SDL.Keycode KeyStatus
makeState f = undefined