Merge pull request #1445 from digitallyinduced/s0kil/fix-issue-1435

Throw Exceptions When Trying To Save A File

Author: mpscholten

IHP/FileStorage/ControllerFunctions.hs

@@ -115,15 +115,18 @@ storeFileWithOptions fileInfo options = do
 
             let contentType = cs (Wai.fileContentType fileInfo)
             contentDisposition <- (get #contentDisposition options) fileInfo
-            runMinio connectInfo do
+            trySaveFile <- runMinio connectInfo do
                 let options :: PutObjectOptions = defaultPutObjectOptions { pooContentType = Just contentType, pooContentDisposition = contentDisposition }
                 putObject bucket objectPath payload Nothing options
+            case trySaveFile of
+                Left e -> throw e
+                Right _ -> pure ()
 
             pure $ baseUrl <> objectPath
 
     pure StoredFile { path = objectPath, url }
 
--- | Fetchs an url and uploads it to the storage.
+-- | Fetches an url and uploads it to the storage.
 --
 -- The stored file has the content type provided by @Content-Type@ header of the downloaded file.
 --