Fix compile

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
+    newControllerContext
+
+
+
+