From 390e60acd1066305a1b19274c08e2c7f1ab1908c Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 19 Feb 2021 15:18:09 -0500
Subject: Remove dummy pricing link, put small pricing on signup button

---
 Biz/Devalloc.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Biz')

diff --git a/Biz/Devalloc.hs b/Biz/Devalloc.hs
index 6efbc53..938a16e 100644
--- a/Biz/Devalloc.hs
+++ b/Biz/Devalloc.hs
@@ -1070,7 +1070,7 @@ tryButton oAuthArgs =
     [Lucid.id_ "try-button", Lucid.href_ <| githubLoginUrl oAuthArgs]
     <| do
       "Give it a try with GitHub"
-      Lucid.small_ "Free for a limited time"
+      Lucid.small_ "Free for a limited time, then $99 per month"
 
 -- | Universal header
 header :: Monad m => Maybe User -> Lucid.HtmlT m ()
@@ -1082,7 +1082,6 @@ header muser =
         Nothing ->
           Lucid.ul_ <| do
             li "Login" <| fieldLink login
-            li "Pricing" <| fieldLink home
         Just _ ->
           Lucid.ul_ <| do
             li "Analyses" <| fieldLink getAnalyses
-- 
cgit v1.2.3