faylang / fay-dom Goto Github PK

{-# LANGUAGE EmptyDataDecls, OverloadedStrings #-}
module Sudokucalc where

import FFI
import DOM (addEvent, getElementById)

data Event

addWindowEvent :: String -> (Event -> Fay ()) -> Fay ()
addWindowEvent = ffi "window.addEventListener(%1, %2)"

showEvent :: String -> Event -> Fay()
showEvent prefix event = putStrLn (prefix ++ show event)

setup :: Event -> Fay()
setup event = do
  putStrLn "The document has loaded"
  addEvent "click" (putStrLn "Using addEvent")
  addWindowEvent "click" (showEvent "Using addWindowEvent ")

main :: Fay ()
main = do
  addWindowEvent "load" setup