module Main where

import Prelude

import AsyncCounter (asyncCounter)

import Data.Maybe (Maybe(..))

import Effect (Effect)

import Effect.Exception (throw)

import React.Basic.DOM (render)

import Web.DOM.NonElementParentNode (getElementById)

import Web.HTML (window)

import Web.HTML.HTMLDocument (toNonElementParentNode)

import Web.HTML.Window (document)

main :: Effect Unit

main = do

container <- getElementById "container" =<< (map toNonElementParentNode $ document =<< window)

case container of

Nothing -> throw "Container element not found."

Just c ->

let app = asyncCounter { label: "Async Increment" }

in render app c