diff --git a/IHP/FileStorage/ControllerFunctions.hs b/IHP/FileStorage/ControllerFunctions.hs index 864b9a74e..a0c75f80c 100644 --- a/IHP/FileStorage/ControllerFunctions.hs +++ b/IHP/FileStorage/ControllerFunctions.hs @@ -112,7 +112,7 @@ storeFileWithOptions fileInfo options = do |> LBS.writeFile (cs destPath) let frameworkConfig = ?context.frameworkConfig - pure $ frameworkConfig.baseUrl <> "/" <> objectPath + pure $ "/" <> objectPath S3Storage { connectInfo, bucket, baseUrl } -> do let payload = fileInfo |> (.fileContent) @@ -409,4 +409,4 @@ storage = ?context.frameworkConfig.appConfig storagePrefix :: (?context :: ControllerContext) => Text storagePrefix = case storage of StaticDirStorage -> "static/" - _ -> "" \ No newline at end of file + _ -> ""