web: Refactor major style

1 files changed, 21 insertions, 0 deletions

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