register html

dev.dhall

@@ -11,4 +11,10 @@ let PostgresConfig
 
 let DBConf : Type = < SQLite : SQLiteConfig | Postgre : PostgresConfig >
 
-in  { port = 3000, db = DBConf.SQLite { filepath = "aggreact.db" } }
+in  { port =
+        3000
+    , jwtKeyFilePath =
+        "jwt.key"
+    , db =
+        DBConf.SQLite { filepath = "aggreact.db" }
+    }

src/Aggreact/Css.hs

@@ -134,6 +134,19 @@ genCss = do
     display inlineBlock
     content (stringContent "[-]")
     cursor pointer
+  input # ("type" |= "submit") ? do
+    fontWeight bold
+    borderBottom solid (px 0) solblue
+    borderTop solid (px 0) solblue
+    borderLeft solid (px 0) solblue
+    borderRight solid (px 0) solblue
+    backgroundColor base2
+    hover & do
+      backgroundColor base3
+      cursor pointer
+      color base01
+  button ?
+    border solid (px 1) black
   input # ("type" |= "checkbox") ?
     display none
   input # ("type" |= "checkbox") # checked |+ div |> label |> span ?

src/Aggreact/Html.hs

@@ -50,7 +50,8 @@ container :: H.Html -> H.Html
 container = H.div ! A.class_ "container"
 
 loginPage :: H.Html
-loginPage =
+loginPage = do
+  H.h2 "Login"
   H.form ! A.action "/login" ! A.method "post" $ do
     H.label (H.text "username")
     H.input ! A.name "username"
@@ -59,6 +60,19 @@ loginPage =
     H.input ! A.type_ "password" ! A.name "password"
     H.br
     H.input ! A.type_ "submit" ! A.value "Login"
+  H.hr
+  H.h2 "Create Account"
+  H.form ! A.action "/users" ! A.method "post" $ do
+    H.label (H.text "username")
+    H.input ! A.name "username"
+    H.br
+    H.label (H.text "password")
+    H.input ! A.type_ "password" ! A.name "password"
+    H.br
+    H.label (H.text "email?")
+    H.input ! A.type_ "email" ! A.name "email"
+    H.br
+    H.input ! A.type_ "submit" ! A.value "Create Account"
 
 data LoginPage = LoginPage
 instance H.ToMarkup LoginPage where