diff --git a/Helper.hs b/Helper.hs index 64b4619..56a8c6a 100644 --- a/Helper.hs +++ b/Helper.hs @@ -120,4 +120,4 @@ removeItem x (y:ys) | otherwise = y : removeItem x ys acceptedTypes :: [T.Text] -acceptedTypes = ["image/jpeg", "image/png", "image/x-ms-bmp", "image/x-bmp", "image/bmp", "image/tiff", "image/tiff-fx"] +acceptedTypes = ["image/jpeg", "image/jpg", "image/png", "image/x-ms-bmp", "image/x-bmp", "image/bmp", "image/tiff", "image/tiff-fx"]