diff options
| -rw-r--r-- | Biz/Devalloc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Biz/Devalloc.hs b/Biz/Devalloc.hs index 6b17e40..667b6fe 100644 --- a/Biz/Devalloc.hs +++ b/Biz/Devalloc.hs @@ -207,7 +207,7 @@ main = Exception.bracket startup shutdown run putText <| "keep: " <> (Text.pack <| keep cfg) let jwtCfg = Auth.defaultJWTSettings jwk let cooks = case area cfg of - Test -> liveCookieSettings + Test -> testCookieSettings Live -> liveCookieSettings let ctx = cooks :. jwtCfg :. EmptyContext let app = serveWithContext paths ctx (toServant <| htmlApp cooks kp cfg jwk oAuthArgs) |