git @ Cat's Eye Technologies Quylthulg / aa92ac9
Make this more conventional. Chris Pressey 1 year, 5 months ago
2 changed file(s) with 8 addition(s) and 4 deletion(s). Raw diff Collapse all Expand all
88
99 <p>(Qlzqqlzuup.hs compiled to .js by Haste, running in HTML5 document)</p>
1010
11 <input type="text" id="prog">
11 <textarea id="prog" rows="10" cols="80"></textarea>
12
13 <div>
14 <button id="run-button">Run</button>
15 </div>
1216
1317 <pre id="result">
1418
55
66 import Qlzqqlzuup
77
8 main = withElems ["prog", "result"] driver
8 main = withElems ["prog", "result", "run-button"] driver
99
10 driver [progElem, resultElem] = do
11 onEvent progElem Change $ \_ -> execute
10 driver [progElem, resultElem, runButtonElem] = do
11 onEvent runButtonElem Click $ \_ -> execute
1212 where
1313 execute = do
1414 Just prog <- getValue progElem