web: Refactor major style

1 files changed, 23 insertions, 0 deletions

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"