Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (8 sloc) 278 Bytes
module Keyboard where
import CLaSH.Prelude
import Keyboard.CaptureKey
import Keyboard.ConstantKey
keyboard kbdata = ((dig3,dig2,dig1,dig0),key)
where
(dig3,dig2,scancode,byteRead) = captureKey kbdata
(dig1,dig0,key) = constantKey (scancode,byteRead)