From 330e4363d8abb509031d2c8c1a89dcc6f955e2c1 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 4 Dec 2020 11:16:25 -0500
Subject: Renamespace Devalloc and Que

Move them under the Biz root so that we know they are specific to Biz stuff. Biz
is for proprietary stuff that we own.

I also had to refactor the bild namespace parsing code because it couldn't
handle a namespace with 3 parts. I really need to get that namespace library
written and tested.
---
 Devalloc/Page/Signup.hs | 46 ----------------------------------------------
 1 file changed, 46 deletions(-)
 delete mode 100644 Devalloc/Page/Signup.hs

(limited to 'Devalloc/Page/Signup.hs')

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"]]
-    ]
-- 
cgit v1.2.3