fixed tests

digitallyinduced · Feb 27, 2024 · 71e101d · 71e101d
1 parent f89a7f5
commit 71e101d
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/Test/Controller/ParamSpec.hs b/Test/Controller/ParamSpec.hs
@@ -435,14 +435,14 @@ createControllerContextWithParams params =
             requestBody = FormBody { params, files = [] }
             request = Wai.defaultRequest
             requestContext = RequestContext { request, respond = error "respond", requestBody, vault = error "vault", frameworkConfig = error "frameworkConfig" }
-        in FrozenControllerContext { requestContext, customFields = TypeMap.empty }
+        in FrozenControllerContext { requestContext, customFields = TypeMap.empty, logger = error "logger is missing" }
 
 createControllerContextWithJson params =
         let
             requestBody = JSONBody { jsonPayload = Just (json params), rawPayload = cs params }
             request = Wai.defaultRequest
             requestContext = RequestContext { request, respond = error "respond", requestBody, vault = error "vault", frameworkConfig = error "frameworkConfig" }
-        in FrozenControllerContext { requestContext, customFields = TypeMap.empty }
+        in FrozenControllerContext { requestContext, customFields = TypeMap.empty, logger = error "logger is missing" }
 
 json :: Text -> Aeson.Value
 json string =

diff --git a/Test/View/CSSFrameworkSpec.hs b/Test/View/CSSFrameworkSpec.hs
@@ -722,4 +722,4 @@ createControllerContextWithCSSFramework cssFramework = do
     let requestBody = FormBody { params = [], files = [] }
     let request = Wai.defaultRequest
     let requestContext = RequestContext { request, respond = error "respond", requestBody, vault = error "vault", frameworkConfig = frameworkConfig }
-    pure FrozenControllerContext { requestContext, customFields = TypeMap.empty }
+    pure FrozenControllerContext { requestContext, customFields = TypeMap.empty, logger = requestContext.frameworkConfig.logger }
diff --git a/Test/View/FormSpec.hs b/Test/View/FormSpec.hs
@@ -50,7 +50,7 @@ createControllerContext = do
     let requestBody = FormBody { params = [], files = [] }
     let request = Wai.defaultRequest
     let requestContext = RequestContext { request, respond = undefined, requestBody, vault = undefined, frameworkConfig = frameworkConfig }
-    pure FrozenControllerContext { requestContext, customFields = mempty }
+    pure FrozenControllerContext { requestContext, customFields = mempty, logger = requestContext.frameworkConfig.logger }
 
 data Project'  = Project {id :: (Id' "projects"), title :: Text, meta :: MetaBag} deriving (Eq, Show)
 instance InputValue Project where inputValue = IHP.ModelSupport.recordToInputValue