Replace IHP.FileStorage.MimeTypes with Network.Mime

digitallyinduced · Dec 13, 2024 · ed20efe · ed20efe
1 parent 89b762d
commit ed20efe
Show file tree

Hide file tree

Showing 5 changed files with 3 additions and 1,055 deletions.
diff --git a/IHP/FileStorage/ControllerFunctions.hs b/IHP/FileStorage/ControllerFunctions.hs
@@ -40,7 +40,7 @@ import qualified System.Directory as Directory
 import qualified Control.Exception as Exception
 import qualified Network.Wreq as Wreq
 import Control.Lens hiding ((|>), set)
-import IHP.FileStorage.MimeTypes
+import qualified Network.Mime as Mime
 
 -- | Uploads a file to a directory in the storage
 --
@@ -179,7 +179,7 @@ storeFileFromUrl url options = do
 --
 storeFileFromPath :: (?context :: context, ConfigProvider context) => Text -> StoreFileOptions -> IO StoredFile
 storeFileFromPath path options = do
-    let fileContentType = path |> guessMimeType |> cs
+    let fileContentType = Mime.defaultMimeLookup (cs path)
 
     fileContent <- LBS.readFile (cs path)
     let file = Wai.FileInfo