diff --git a/src/Main.elm b/src/Main.elm index bf22009..b00e71c 100644 --- a/src/Main.elm +++ b/src/Main.elm @@ -94,7 +94,7 @@ update msg model = case msg of TypingTick _ -> updateTypingTick model History r -> updateHistory model r ReceiveHistoryResponse r hr -> updateHistoryResponse model r hr - SendImages rid -> (model, Select.files [ "image/png" ] <| ImagesSelected rid) + SendImages rid -> (model, Select.files [ "image/jpeg", "image/png", "image/gif" ] <| ImagesSelected rid) SendFiles rid -> (model, Select.files [ "application/*" ] <| FilesSelected rid) ImagesSelected rid f fs -> updateUploadSelected model rid f fs (ImageUploadComplete rid) FilesSelected rid f fs -> updateUploadSelected model rid f fs (FileUploadComplete rid)