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/User.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 fig-web/src/Fig/Web/Module/User.hs (limited to 'fig-web/src/Fig/Web/Module/User.hs') diff --git a/fig-web/src/Fig/Web/Module/User.hs b/fig-web/src/Fig/Web/Module/User.hs new file mode 100644 index 0000000..5b27b2d --- /dev/null +++ b/fig-web/src/Fig/Web/Module/User.hs @@ -0,0 +1,21 @@ +module Fig.Web.Module.User + ( public + ) where + +import Fig.Prelude + +import qualified Data.Text as Text + +import Fig.Web.Utils +import Fig.Web.Types +import qualified Fig.Web.DB as DB + +public :: Module +public a = do + onGet "/api/user/:name" do + name <- Text.toLower <$> pathParam "name" + DB.get a.db ("user:" <> encodeUtf8 name) >>= \case + Nothing -> do + status status404 + respondText "user not found" + Just val -> respondText $ decodeUtf8 val -- cgit v1.2.3