diff options
| author | Ben Sima <ben@bsima.me> | 2021-02-19 15:18:09 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-02-19 15:18:09 -0500 |
| commit | 390e60acd1066305a1b19274c08e2c7f1ab1908c (patch) | |
| tree | 8d97182a3e3e18b21dce249b7ee2f7161e98fed4 /Biz/Devalloc.hs | |
| parent | b499befeb774a377e306bd65793f9eb6c9044377 (diff) | |
Remove dummy pricing link, put small pricing on signup button
Diffstat (limited to 'Biz/Devalloc.hs')
| -rw-r--r-- | Biz/Devalloc.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |