Fix docs about ImageStyle (#1988)

* Fix docs about ImageStyle With current fix, the image style is created with the correct name, as the original file. * Update Guide/file-storage.markdown Co-authored-by: Marc Scholten <[email protected]> * Update Guide/file-storage.markdown --------- Co-authored-by: Marc Scholten <[email protected]>
digitallyinduced · Jul 14, 2024 · a58f7a0 · a58f7a0
1 parent 4526f58
commit a58f7a0
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/Guide/file-storage.markdown b/Guide/file-storage.markdown
@@ -869,6 +869,7 @@ import Web.Controller.Prelude
 import IHP.ControllerSupport
 import System.Directory (doesFileExist)
 import qualified Data.Text as Text
+import qualified Data.UUID as UUID (fromText)
 
 instance Controller ImageStyleController where
     action RenderImageStyleAction { width, height, originalImagePath } = do
@@ -891,6 +892,8 @@ instance Controller ImageStyleController where
                 let options :: StoreFileOptions = def
                         { directory = imageStylePathDirectory
                         , preprocess = applyImageMagick "jpg" ["-resize", cs size <> "^", "-gravity", "center", "-extent", cs size, "-quality", "85%", "-strip"]
+                        -- Keep the original filename.
+                        , fileName = UUID.fromText uuid
                         }
 
                 storedFile <- storeFileFromPath (cs $ storagePrefix <> originalImageDirectory <> "/" <> uuid) options