UHC get context2d

gistfile1.hs

data Document
data Context2D
data Canvas

foreign import js "document"
    document :: IO Document
foreign import js "%1.getElementById(%2)"
    jsGetElementById :: Document -> JSString -> IO Canvas
getElementById doc = jsGetElementById doc . toJS
foreign import js "%1.getContext('2d')"
    getContext2dFromCanvas :: Canvas -> IO Context2D

getContext2d :: String -> IO Context2D
getContext2d canvasName = do
  d <- document
  c <- getElementById d canvasName
  getContext2dFromCanvas