From 88e2726fc1fc6cec2b9e63526ce4c0a1a04a2e98 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Fri, 1 Mar 2024 18:39:11 -0500
Subject: Add new frontend

---
 fig-frontend/src/Fig/Frontend.hs | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

(limited to 'fig-frontend/src/Fig')

diff --git a/fig-frontend/src/Fig/Frontend.hs b/fig-frontend/src/Fig/Frontend.hs
index b1c6aed..fd2754c 100644
--- a/fig-frontend/src/Fig/Frontend.hs
+++ b/fig-frontend/src/Fig/Frontend.hs
@@ -6,7 +6,7 @@ import Control.Lens (use)
 
 import Data.Text (toLower)
 
--- 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
@@ -36,16 +36,19 @@ app cfg = do
   st <- stateRef
   pure $ foldr' @[] ($)
     (Tw.notFound . Tw.send $ Tw.text "not found")
-    -- [ Wai.Static.staticPolicy $ Wai.Static.addBase cfg.assetPath
-    [ Tw.get "/"
-      . Tw.send . Tw.html
-      . L.renderBS
-      $ L.doctypehtml_ do
-          L.head_ do
-            L.title_ "clonk zone api home page"
-            L.link_ [L.rel_ "icon", L.href_ "data:;base64,iVBORw0KGgo="]
-          L.body_ do
-            "hello"
+    [ Wai.Static.staticPolicy $ Wai.Static.addBase cfg.assetPath
+    -- , Tw.get "/"
+    --   . Tw.send . Tw.html
+    --   . L.renderBS
+    --   $ L.doctypehtml_ do
+    --       L.head_ do
+    --         L.title_ "clonk zone api home page"
+    --         L.link_ [L.rel_ "icon", L.href_ "data:;base64,iVBORw0KGgo="]
+    --         L.link_ [L.rel_ "stylesheet", L.href_ "main.css"]
+    --         L.script_ [L.type_ "module", L.src_ "main.js"] ("" :: L.Html ())
+    --       L.body_ do
+    --         L.button_ [L.id_ "foo"] do
+    --           "hello"
     , Tw.get "/api/check" $ authed cfg \auth -> do
         Tw.send $ Tw.json @[Text] [auth.id, auth.name]
     , Tw.put "/api/buffer" do
-- 
cgit v1.2.3