Thimoteus/Main.purs

## index.html
<!doctype html>
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:foo="http://www.w3.org/2000/svg">
  <head>
    <title>clickber-builder</title>
    <style>
      body {
        font-family: sans-serif;
        max-width: 800px;
        margin: auto;
      }
    </style>
  </head>
  <body>
    <script src="app.js"></script>
  </body>
</html>

## Main.purs
module Main where

import Prelude

import Data.Lens (LensP(), (+~), lens)

import Control.Monad.Aff (runAff, later, later')
import Control.Monad.Eff (Eff())
import Control.Monad.Eff.Exception (throwException)
import Control.Monad.Rec.Class (forever)

import Halogen
  ( Component(), ComponentHTML(), component
  , Natural(), ComponentDSL(), HalogenEffects()
  , runUI, modify, action
  )
import Halogen.Util (appendToBody, onLoad)
import Halogen.HTML.Indexed (div_, h1_, text, button)
import Halogen.HTML.Events.Indexed (onMouseDown, input_)

data Action a = Click a

type State = { clicks :: Number }

clicks :: LensP State Number
clicks = lens _.clicks (_ { clicks = _ })

initialState :: State
initialState = { clicks: 0.0 }

theButton :: forall g. (Functor g) => Component State Action g
theButton = component render eval
  where
    render :: State -> ComponentHTML Action
    render state =
      div_
        [ h1_
        [ text "The world's simplest incremental game" ]
        , button
          [ onMouseDown (input_ Click) ]
          [ text "Click me!" ]
        , div_
          [ text (show state.clicks) ]
        ]

    eval :: Natural Action (ComponentDSL State Action g)
    eval (Click next) = do
      modify $ clicks +~ 1.0
      pure next

main :: Eff (HalogenEffects ()) Unit
main = runAff throwException (const (pure unit)) do
  app <- runUI theButton initialState
  onLoad $ appendToBody app.node
  forever do
    app.driver $ action Click
    later' 1000 $ pure unit
	<!doctype html>
	<html xmlns="http://www.w3.org/1999/xhtml" xmlns:foo="http://www.w3.org/2000/svg">
	<head>
	<title>clickber-builder</title>
	<style>
	body {
	font-family: sans-serif;
	max-width: 800px;
	margin: auto;
	}
	</style>
	</head>
	<body>
	<script src="app.js"></script>
	</body>
	</html>
	module Main where

	import Prelude

	import Data.Lens (LensP(), (+~), lens)

	import Control.Monad.Aff (runAff, later, later')
	import Control.Monad.Eff (Eff())
	import Control.Monad.Eff.Exception (throwException)
	import Control.Monad.Rec.Class (forever)

	import Halogen
	( Component(), ComponentHTML(), component
	, Natural(), ComponentDSL(), HalogenEffects()
	, runUI, modify, action
	)
	import Halogen.Util (appendToBody, onLoad)
	import Halogen.HTML.Indexed (div_, h1_, text, button)
	import Halogen.HTML.Events.Indexed (onMouseDown, input_)

	data Action a = Click a

	type State = { clicks :: Number }

	clicks :: LensP State Number
	clicks = lens _.clicks (_ { clicks = _ })

	initialState :: State
	initialState = { clicks: 0.0 }

	theButton :: forall g. (Functor g) => Component State Action g
	theButton = component render eval
	where
	render :: State -> ComponentHTML Action
	render state =
	div_
	[ h1_
	[ text "The world's simplest incremental game" ]
	, button
	[ onMouseDown (input_ Click) ]
	[ text "Click me!" ]
	, div_
	[ text (show state.clicks) ]
	]

	eval :: Natural Action (ComponentDSL State Action g)
	eval (Click next) = do
	modify $ clicks +~ 1.0
	pure next

	main :: Eff (HalogenEffects ()) Unit
	main = runAff throwException (const (pure unit)) do
	app <- runUI theButton initialState
	onLoad $ appendToBody app.node
	forever do
	app.driver $ action Click
	later' 1000 $ pure unit