Save only the relative path of the filename for StaticDirStorage

fixes #1989
digitallyinduced · Jul 13, 2024 · f68f5b6 · f68f5b6
1 parent 4526f58
commit f68f5b6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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/"
-    _ -> ""
+    _ -> ""