generator/Main.hs

   1 module Main where
   2
   3 import Ema qualified
   4 import Relude
   5 import Site.Render
   6 import Site.Update
   7 import Prelude ()
   8
   9 -- https://wave.webaim.org/report#/https://sourcephile.fr
  10 main :: IO (Either () _)
  11 main =
  12   Ema.runEma
  13     (\action model -> either Ema.AssetStatic (renderRoute action model))
  14     updateModel