diff options
| author | Ben Sima <ben@bsima.me> | 2021-01-11 14:14:50 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-01-11 14:14:50 -0500 |
| commit | f7d9e8e4833bfda8332e064385df1f0cf8dee64a (patch) | |
| tree | b204a321635cb5facae6739ddb56e5c4f104373f /Biz/Devalloc.hs | |
| parent | e11131dbcf13c4b33a4321fdead44269f3e088c9 (diff) | |
Fix cookie settings in test area
Diffstat (limited to 'Biz/Devalloc.hs')
| -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) |