Fixup

src/Main.purs-spoiler-04-halogen-advanced

@@ -1,6 +1,6 @@
 module Main where
 
-import Control.Monad.Aff (runAff)
+import Control.Monad.Aff (runAff, Aff())
 import Control.Monad.Aff.Class (MonadAff)
 import Control.Monad.Aff.Console (log)
 import Control.Monad.Eff.Console (CONSOLE())
@@ -31,7 +31,7 @@ initialState = State [] [] 0
 
 -- event handlers
 
-data Button = Eval | Value Int | Plus
+data Button = Inc | Value Int | Plus
 
 data Query a = Click Button a
 
@@ -48,7 +48,7 @@ render (State log stack value) = H.div_
     , H.input
         [ P.inputType P.InputSubmit
         , P.value "="
-        , E.onClick (E.input_ (Click Eval))
+        , E.onClick (E.input_ (Click Inc))
         ]
 
     , valueButton 1
@@ -80,11 +80,11 @@ valueButton i = H.input
 type CalcAff eff = Aff (HalogenEffects (console :: CONSOLE | eff))
 type CalcDSL eff = ComponentDSL State Query (CalcAff eff)
 
-eval :: forall eff. Natural State Query (CalcDSL eff)
+eval :: forall eff. Natural Query (CalcDSL eff)
 eval (Click button next) = do
     liftAff' (log "click!")
     modify (\(State log arr i) -> case button of
-        Eval     -> State log arr (i + 1)
+        Inc      -> State log arr (i + 1)
         Value i' -> State log (i' : arr) i
         Plus     -> let newEntry = show arr ++ " -> " ++ show value
                         value = sum arr