Add missing slot type
This commit is contained in:
parent
aac003ecc0
commit
e921264043
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue