Skip to content

Instantly share code, notes, and snippets.

View simonolander's full-sized avatar

Simon Olander Sahlén simonolander

View GitHub Profile
@simonolander
simonolander / Main.purs
Created August 14, 2021 11:23
SSCCE for bug in Halogen
module Main where
import Prelude
import Data.Const (Const)
import Data.Maybe (Maybe(..))
import Effect (Effect)
import Halogen (Component, ComponentSlot, HalogenM, HalogenQ, Slot, defaultEval, mkComponent, mkEval, put, raise)
import Halogen.Aff (awaitBody, runHalogenAff)
import Halogen.HTML (HTML, div_, p_, slot, text)
import Halogen.Store.Connect (Connected, connect)