blob: fa1965aa61057b5df5aa8a7b90189485ff22e4eb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
module Fig.Frontend where
import Fig.Prelude
import qualified Network.Wai.Middleware.Static as Wai.Static
import qualified Network.Wai.Handler.Warp as Warp
import qualified Web.Twain as Tw
import qualified Lucid as L
import Fig.Frontend.Utils
import Fig.Frontend.Auth
server :: Config -> IO ()
server cfg = do
log $ "Frontend server running on port " <> tshow cfg.port
Warp.run cfg.port $ app cfg
app :: Config -> Tw.Application
app cfg = 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_ "The Junkyard"
L.link_ [L.rel_ "stylesheet", L.href_ "js/index.css"]
L.link_ [L.rel_ "stylesheet", L.href_ "https://fonts.googleapis.com/css?family=Rubik+Maps"]
L.link_ [L.rel_ "icon", L.href_ "data:;base64,iVBORw0KGgo="]
L.script_ [L.type_ "module", L.src_ "js/index.js"] ("" :: L.Html ())
L.body_ do
L.term "fig-backdrop" ""
L.term "fig-header" ""
L.term "fig-login" ""
L.term "fig-window" do
L.h1_ "hello"
, Tw.get "/api/check" $ authed cfg \auth -> do
Tw.send $ Tw.json @[Text] [auth.id, auth.name]
]
|
