Add learn more button to announncement

unisoncomputing · Feb 3, 2025 · e1510f1 · e1510f1
1 parent 81b904d
commit e1510f1
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/UnisonShare/AppDocument.elm b/src/UnisonShare/AppDocument.elm
@@ -1,10 +1,11 @@
 module UnisonShare.AppDocument exposing (AppDocument, appDocument, map, view, withModal)
 
 import Browser exposing (Document)
-import Html exposing (Html, div, text)
+import Html exposing (Html, div)
 import Html.Attributes exposing (class, id)
 import Maybe.Extra as MaybeE
 import UI
+import UI.Button as Button
 import UI.PageHeader as PageHeader exposing (PageHeader)
 import UnisonShare.AppHeader as AppHeader exposing (AppHeader, AppHeaderContext)
 import UnisonShare.Link as Link
@@ -96,6 +97,9 @@ viewAnnouncement =
                 [ Link.view
                     "⛅ Coming soon: create Unison Cloud clusters in minutes on your own infrastructure."
                     Link.unisonCloudWebsiteByoc
+                , Button.button_ Link.unisonCloudWebsiteByoc "Learn more"
+                    |> Button.small
+                    |> Button.view
                 ]
             ]
         )