Code alignment.

This commit is contained in:
Philippe Pittoli 2025-07-04 18:59:15 +02:00
parent fc16234773
commit 37ebd5566a
3 changed files with 13 additions and 13 deletions

View file

@ -272,13 +272,13 @@ render state
-- The footer includes logs and both the WS child components.
, Web.hr
, Web.columns_ [ Web.column_ [ Web.h3 "Logs (watch this if something fails 😅)", render_logs ]
, Web.column_ [ Web.level
[ render_auth_WS
, render_dnsmanager_WS
, legal_notice_btn
, paypal_btn
] [] ]
]
, Web.column_ [ Web.level
[ render_auth_WS
, render_dnsmanager_WS
, legal_notice_btn
, paypal_btn
] [] ]
]
]
where
website_hero :: forall w i. HH.HTML w i
@ -353,8 +353,8 @@ render state
render_legal_notice :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad
render_legal_notice
= Web.section_small [ Explanations.legal_notice
, Web.btn_ [C.is_large, C.margin_top 3, C.is_info] "Home page" (Routing Home)
]
, Web.btn_ [C.is_large, C.margin_top 3, C.is_info] "Home page" (Routing Home)
]
render_nav :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad
render_nav = HH.slot _nav unit PageNavigation.component unit (EventOnPage <<< EventPageNavigation)

View file

@ -234,8 +234,8 @@ render state
UpdateRRModal -> call_to_current_rr_modal
NoModal -> HH.div_
[ Web.level [ Web.btn_ [C.is_large, C.is_info] "Back to the domain list" ReturnToDomainList
, Web.h1 state._domain
] []
, Web.h1 state._domain
] []
, Web.hr
, Table.resource_records (sorted state._resources) CreateUpdateRRModal DeleteRRModal NewToken
, Web.hr

View file

@ -337,8 +337,8 @@ current_rr_modal selected_domain form rr_modal
, Web.box_input "idDMARCmail" "Address to contact" "admin@example.com" (action_update_rr <<< DMARC_mail) form.tmp.dmarc_mail
, Web.box_input "idDMARCmaillimit" "Report size limit (in KB)" "2000" (action_update_rr <<< DMARC_mail_limit) (maybe "0" show form.tmp.dmarc_mail_limit)
, Web.level [ Web.btn_ [C.has_background_info_light] "New address for aggregated report" (action_update_rr DMARC_rua_Add)
, Web.btn_ [C.has_background_success_light] "New address for specific report" (action_update_rr DMARC_ruf_Add)
] []
, Web.btn_ [C.has_background_success_light] "New address for specific report" (action_update_rr DMARC_ruf_Add)
] []
, Web.hr
, Web.quote Explanations.dmarc_ri