From 600d9feae61ff75157d6eec80735b894c1a8aff1 Mon Sep 17 00:00:00 2001
From: Amitai Burstein <amitai@gizra.com>
Date: Sun, 6 Oct 2024 20:55:52 +0300
Subject: [PATCH] Fix compile

---
 Test/FileStorage/ControllerFunctionsSpec.hs | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/Test/FileStorage/ControllerFunctionsSpec.hs b/Test/FileStorage/ControllerFunctionsSpec.hs
index 8c91b08b0..1f06694e2 100644
--- a/Test/FileStorage/ControllerFunctionsSpec.hs
+++ b/Test/FileStorage/ControllerFunctionsSpec.hs
@@ -15,10 +15,20 @@ import Data.Time.Clock (getCurrentTime, addUTCTime)
 import Network.Wai as Wai (defaultRequest)
 import Network.Wai.Parse (FileInfo(..))
 import IHP.Controller.RequestContext
+import IHP.FileStorage.Config
+import qualified IHP.FrameworkConfig as Config
+
 
 tests :: Spec
 tests = describe "IHP.FileStorage.ControllerFunctions" $ do
-    let withFrameworkConfig = IHP.FrameworkConfig.withFrameworkConfig (pure ())
+
+    let config :: ConfigBuilder
+        config = do
+            initStaticDirStorage
+
+    let withFrameworkConfig = IHP.FrameworkConfig.withFrameworkConfig config
+
+
     describe "storeFileWithOptions" $ do
         it "returns the objectPath without the baseUrl" $ do
             withSystemTempDirectory "ihp-test" $ \tempDir -> do
@@ -61,4 +71,8 @@ createControllerContext frameworkConfig = do
         request = Wai.defaultRequest
         requestContext = RequestContext { request, respond = error "respond", requestBody, frameworkConfig = frameworkConfig }
     let ?requestContext = requestContext
-    newControllerContext
\ No newline at end of file
+    newControllerContext
+
+
+
+