diff --git a/Test/Controller/ParamSpec.hs b/Test/Controller/ParamSpec.hs index 630ad13c0..1dd01be3d 100644 --- 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 index 11f1a2c24..99f305ec8 100644 --- 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 } \ No newline at end of file + pure FrozenControllerContext { requestContext, customFields = TypeMap.empty, logger = requestContext.frameworkConfig.logger } \ No newline at end of file diff --git a/Test/View/FormSpec.hs b/Test/View/FormSpec.hs index 7cc5d27bb..b31db7f5d 100644 --- 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