2016-01-18 22:17:22 +01:00
|
|
|
module Main where
|
|
|
|
|
|
|
|
import Prelude
|
2018-07-23 22:59:40 +02:00
|
|
|
import Effect (Effect)
|
2017-02-28 01:31:13 +01:00
|
|
|
import Halogen.Aff as HA
|
|
|
|
import Halogen.VDom.Driver (runUI)
|
2016-01-18 22:17:22 +01:00
|
|
|
|
2017-02-28 01:31:13 +01:00
|
|
|
import Component (component)
|
2016-01-18 22:17:22 +01:00
|
|
|
|
2018-07-23 22:59:40 +02:00
|
|
|
main :: Effect Unit
|
2017-02-28 01:31:13 +01:00
|
|
|
main = HA.runHalogenAff do
|
|
|
|
body <- HA.awaitBody
|
|
|
|
runUI component unit body
|