Reduce footer presence

cardano-foundation · Sep 25, 2024 · 45990d4 · 45990d4
1 parent 949e589
commit 45990d4
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 11 deletions.
diff --git a/lib/ui/src/Cardano/Wallet/UI/Common/Html/Pages/Template/Body.hs b/lib/ui/src/Cardano/Wallet/UI/Common/Html/Pages/Template/Body.hs
@@ -13,9 +13,6 @@ import Cardano.Wallet.UI.Common.Html.Htmx
 import Cardano.Wallet.UI.Common.Html.Lib
     ( linkText
     )
-import Cardano.Wallet.UI.Common.Html.Pages.Template.Footer
-    ( footerH
-    )
 import Data.Text
     ( Text
     )
@@ -45,6 +42,3 @@ bodyH sseLink header body = do
     div_ [hxSse_ $ sseConnectFromLink sseLink] $
         div_ [class_ "container-fluid"] $ do
             div_ [class_ "main"] body
-            div_
-                [class_ "footer mt-5"]
-                footerH
diff --git a/lib/ui/src/Cardano/Wallet/UI/Common/Html/Pages/Template/Footer.hs b/lib/ui/src/Cardano/Wallet/UI/Common/Html/Pages/Template/Footer.hs
@@ -37,13 +37,13 @@ footerH =
                 $ do
                     ul_ [class_ "nav flex-column"] $ do
                         li_
-                            [class_ "nav-item mb-2"]
+                            [class_ "nav-item"]
                             "© 2024 Cardano Foundation, HAL team"
-                        li_ [class_ "nav-item mb-2"] $ do
+                        li_ [class_ "nav-item"] $ do
                             span_ "Source code on "
                             githubLinkH
 
             div_ [class_ "row d-md-flex align-items-center"]
                 $ div_
-                    [class_ "mb-3 mb-md-0 text-body-secondary"]
+                    [class_ "mb-md-0 text-body-secondary"]
                     "Powered by Haskell, Htmx, Servant, Lucid, Bootstrap"
diff --git a/lib/ui/src/Cardano/Wallet/UI/Deposit/Html/Pages/About.hs b/lib/ui/src/Cardano/Wallet/UI/Deposit/Html/Pages/About.hs
@@ -2,12 +2,15 @@ module Cardano.Wallet.UI.Deposit.Html.Pages.About where
 
 import Prelude
 
+import Cardano.Wallet.UI.Common.Html.Pages.Template.Footer
+    ( footerH
+    )
 import Lucid
     ( HtmlT
     , p_
     )
 
 aboutH :: Monad m => HtmlT m ()
 aboutH = do
-    p_
-        "This is the new builtin Cardano Deposit Wallet web UI, pre-alpha version"
+    p_ "Cardano Deposit Wallet web UI, pre-alpha version"
+    footerH