haste foreign imports

gistfile1.hs

foreign import ccall jsSetInterval :: Int -> Callback a -> IO ()
setInterval :: Int -> IO () -> IO ()
setInterval time cb =
  jsSetInterval time (mkCallback $! cb)

foreign import ccall jsSetOnKeyDown :: Callback a -> IO ()
foreign import ccall jsSetOnKeyUp :: Callback a -> IO ()

setOnKeyDown :: (Int -> IO ()) -> IO ()
setOnKeyDown cb =
  jsSetOnKeyDown (mkCallback $! cb)
setOnKeyUp :: (Int -> IO ()) -> IO ()
setOnKeyUp cb =
  jsSetOnKeyUp (mkCallback $! cb)