{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}

module Biz.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"]]
    ]