From 83cbb69e40fc68606b03b26d70d0a6a0d153fda6 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Sun, 1 Jun 2025 20:34:37 -0400
Subject: fig-web: Support --sim-auth

---
 fig-web/src/Fig/Web/Auth.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'fig-web/src/Fig/Web')

diff --git a/fig-web/src/Fig/Web/Auth.hs b/fig-web/src/Fig/Web/Auth.hs
index 5017b3e..0e372c8 100644
--- a/fig-web/src/Fig/Web/Auth.hs
+++ b/fig-web/src/Fig/Web/Auth.hs
@@ -5,6 +5,7 @@ module Fig.Web.Auth
 
 import Fig.Prelude
 
+import qualified Data.Text as Text
 import qualified Web.Scotty as Sc
 
 import Fig.Web.Types
@@ -12,14 +13,17 @@ import Fig.Web.Utils
 
 data Credentials = Credentials
   { user :: Text
-  , email :: Text
+  , twitchId :: Text
   }
 authed :: SecureModuleArgs -> (Credentials -> Sc.ActionM ()) -> Sc.ActionM ()
-authed args h = do
+authed args h | args.options.simAuth = do
+  let auth = Credentials { user = "fake_test_user", twitchId = "69" }
+  h auth
+authed _ h = do
   muser <- header "Remote-User"
   memail <- header "Remote-Email"
   case (muser, memail) of
-    (Just user, Just email) -> do
+    (Just user, Just email) | twitchId:_ <- Text.splitOn "@" email -> do
       let auth = Credentials{..}
       h auth
     _else -> do
-- 
cgit v1.2.3