1 files changed, 46 insertions, 0 deletions
diff --git a/Devalloc/Page/Signup.hs b/Devalloc/Page/Signup.hs
new file mode 100644
index 0000000..4bcdeec
--- /dev/null
+++ b/Devalloc/Page/Signup.hs
@@ -0,0 +1,46 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+
+module Devalloc.Page.Signup
+  ( Move (..),
+    Path,
+    Form (..),
+    path,
+    view,
+    host,
+  )
+where
+
+import Alpha
+import Biz.App (HtmlApp (..))
+import Miso
+import Miso.String
+import Servant.API
+import Servant.Links
+import Servant.Server (Handler)
+
+data Move = NoMove
+
+type Path = View Move
+
+newtype Form = Form
+  { uri :: URI
+  }
+
+path :: URI
+path = linkURI <| safeLink (Proxy :: Proxy Path) (Proxy :: Proxy Path)
+
+host :: Handler (HtmlApp (View Move))
+host =
+  Form {uri = path}
+    |> view
+    |> HtmlApp
+    |> pure
+
+view :: Form -> View Move
+view _ =
+  div_
+    []
+    [ h1_ [] [text "Signup coming soon"],
+      p_ [] [a_ [href_ "/"] [text "Go back home"]]
+    ]