From 22f4cdce73812ff0eb7f3e8dcce59179726052b0 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Fri, 21 Oct 2016 23:20:22 +0200
Subject: [PATCH] cleaning accepted types

---
 Helper.hs | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/Helper.hs b/Helper.hs
index 45d2054..224c622 100755
--- a/Helper.hs
+++ b/Helper.hs
@@ -157,7 +157,29 @@ reverseLookup _ [] = Nothing
 reverseLookup _ _  = Nothing
 
 acceptedTypes :: [T.Text]
-acceptedTypes = ["image/jpeg", "image/jpg", "image/png", "image/x-ms-bmp", "image/x-bmp", "image/bmp", "image/tiff", "image/tiff-fx", "image/svg+xml", "image/gif"]
+acceptedTypes =
+    -- PNG
+  [ "image/png"
+    -- BMP
+  , "image/x-ms-bmp"
+  , "image/x-bmp"
+  , "image/bmp"
+    -- JPG
+  , "image/jpeg"
+  , "image/jpg"
+    -- GIF
+  , "image/gif"
+    -- Radiance
+  , "image/vnd.radiance"
+    -- Targa
+  , "image/x-targa"
+  , "image/x-tga"
+    -- Tiff
+  , "image/tiff"
+  , "image/tiff-fx"
+    -- SVG
+  , "image/svg+xml"
+  ]
 
 iso8601 :: FormatTime t => t -> String
 iso8601 time =