From 1f2e453d0c9f8412b9032cb4e655713ecdcf1fa3 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Mon, 26 May 2025 04:43:38 -0400 Subject: web: Refactor major style --- fig-web/src/Fig/Web/Module/Redeem.hs | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 fig-web/src/Fig/Web/Module/Redeem.hs (limited to 'fig-web/src/Fig/Web/Module/Redeem.hs') diff --git a/fig-web/src/Fig/Web/Module/Redeem.hs b/fig-web/src/Fig/Web/Module/Redeem.hs new file mode 100644 index 0000000..7dbafc0 --- /dev/null +++ b/fig-web/src/Fig/Web/Module/Redeem.hs @@ -0,0 +1,23 @@ +module Fig.Web.Module.Redeem + ( secure + ) where + +import Fig.Prelude + +import qualified Data.Maybe as Maybe +import qualified Data.Text as Text + +import Fig.Web.Utils +import Fig.Web.Types + +secure :: Module +secure a = do + onPost "/api/redeem" $ authed \creds -> do + name <- formParam "name" + input <- formParamMaybe "input" + liftIO . a.cmds.publish "frontend redeem incoming" + . encodeUtf8 . Text.intercalate "\t" $ + [ creds.user + , name + ] <> Maybe.maybeToList input + respondText "it worked" -- cgit v1.2.3