Add file buttons and messages (currently do nothing)

This commit is contained in:
2018-12-20 17:03:26 -08:00
parent 2cdfc45a93
commit 98be6ed061
4 changed files with 12 additions and 1 deletions

View File

@@ -80,6 +80,10 @@ update msg model = case msg of
TypingTick _ -> updateTypingTick model
History r -> updateHistory model r
ReceiveHistoryResponse r hr -> updateHistoryResponse model r hr
SendImages rid -> (model, Cmd.none)
SendFiles rid -> (model, Cmd.none)
ImagesSelected rid f fs -> (model, Cmd.none)
FilesSelected rid f fs -> (model, Cmd.none)
updateHistoryResponse : Model -> RoomId -> Result Http.Error HistoryResponse -> (Model, Cmd Msg)
updateHistoryResponse m r hr =