git @ Cat's Eye Technologies Pail / master src / HasteMain.hs
master

Tree @master (Download .tar.gz)

HasteMain.hs @master — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
module Main where

-- Copyright (c) 2011-2024, Chris Pressey, Cat's Eye Technologies.
-- 
-- SPDX-License-Identifier: LicenseRef-BSD-2-Clause-X-Pail

import Haste.DOM (withElems, getValue, setProp)
import Haste.Events (onEvent, MouseEvent(Click))

import Language.Pail (runPail)


main = withElems ["prog", "result", "run-button"] driver

driver [progElem, resultElem, runButtonElem] =
    onEvent runButtonElem Click $ \_ -> do
        Just prog <- getValue progElem
        setProp resultElem "textContent" $ runPail prog