Add user API endpoint

1 files changed, 10 insertions, 3 deletions

diff --git a/fig-frontend/src/Fig/Frontend.hs b/fig-frontend/src/Fig/Frontend.hs
index ea81bcb..30e2f46 100644
--- a/fig-frontend/src/Fig/Frontend.hs
+++ b/fig-frontend/src/Fig/Frontend.hs
@@ -4,7 +4,7 @@ import Fig.Prelude
 
 import Control.Lens (use)
 
-import qualified Network.Wai.Middleware.Static as Wai.Static
+-- import qualified Network.Wai.Middleware.Static as Wai.Static
 import qualified Network.Wai.Handler.Warp as Warp
 
 import qualified Web.Twain as Tw
@@ -15,6 +15,7 @@ import qualified Lucid.Base as L
 import Fig.Frontend.Utils
 import Fig.Frontend.Auth
 import Fig.Frontend.State
+import qualified Fig.Frontend.DB as DB
 
 server :: Config -> IO ()
 server cfg = do
@@ -28,11 +29,12 @@ window id_ title body =
 
 app :: Config -> IO Tw.Application
 app cfg = do
+  db <- DB.connect
   st <- stateRef
   pure $ foldr' @[] ($)
     (Tw.notFound . Tw.send $ Tw.text "not found")
-    [ Wai.Static.staticPolicy $ Wai.Static.addBase cfg.assetPath
-    , Tw.get "/"
+    -- [ Wai.Static.staticPolicy $ Wai.Static.addBase cfg.assetPath
+    [ Tw.get "/"
       . Tw.send . Tw.html
       . L.renderBS
       $ L.doctypehtml_ do
@@ -46,4 +48,9 @@ app cfg = do
     , Tw.put "/api/buffer" do
         buf <- withState st $ use buffer 
         Tw.send $ Tw.text buf
+    , Tw.get "/api/user/:name" do
+        name <- Tw.param "name"
+        DB.get db ("user:" <> encodeUtf8 name) >>= \case
+          Nothing -> Tw.send . Tw.status Tw.status404 $ Tw.text "user not found"
+          Just val -> Tw.send . Tw.text $ decodeUtf8 val
     ]