1 files changed, 0 insertions, 46 deletions
diff --git a/Devalloc/Page/Signup.hs b/Devalloc/Page/Signup.hs
deleted file mode 100644
index 4bcdeec..0000000
--- a/Devalloc/Page/Signup.hs
+++ /dev/null
@@ -1,46 +0,0 @@
-{-# 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"]]
-    ]