2016-01-18 22:17:22 +01:00
|
|
|
module Main where
|
|
|
|
|
|
|
|
|
|
import Prelude
|
2016-06-25 19:34:02 +02:00
|
|
|
import Control.Monad.Eff (Eff)
|
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
|
|
|
|
2017-02-28 01:31:13 +01:00
|
|
|
main :: Eff (HA.HalogenEffects ()) Unit
|
|
|
|
|
main = HA.runHalogenAff do
|
|
|
|
|
body <- HA.awaitBody
|
|
|
|
|
runUI component unit body
|
