2013-02-21 08:40:41 +00:00
|
|
|
|
|
|
|
module Keyboard.Raw where
|
|
|
|
|
2013-02-22 23:19:40 +00:00
|
|
|
import Native.Keyboard.Raw
|
|
|
|
|
|
|
|
type KeyCode = Int
|
|
|
|
|
|
|
|
keysDown : Signal [KeyCode]
|
2013-02-21 08:40:41 +00:00
|
|
|
keysDown = Native.Keyboard.Raw.keysDown
|
2013-02-22 23:19:40 +00:00
|
|
|
|
|
|
|
charPressed : Signal (Maybe Char)
|
2013-02-21 08:40:41 +00:00
|
|
|
charPressed = Native.Keyboard.Raw.charPressed
|