diff options
| -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 |