1
Fork 0

Add missing slot type

This commit is contained in:
Jordan Martinez 2019-05-18 20:50:08 -07:00
commit e921264043

View file

@ -49,7 +49,7 @@ component = S.component input $ S.defaultSpec
, selection: Nothing
}
handleMessage :: S.Message -> H.HalogenM (S.State State) S.Action' Message Aff Unit
handleMessage :: S.Message -> H.HalogenM (S.State State) S.Action' () Message Aff Unit
handleMessage = case _ of
S.Selected ix -> do
st <- H.get