From f7d9e8e4833bfda8332e064385df1f0cf8dee64a Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 11 Jan 2021 14:14:50 -0500
Subject: Fix cookie settings in test area

---
 Biz/Devalloc.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Biz/Devalloc.hs')

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)
-- 
cgit v1.2.3