Baguette/dnsmanager-webclient
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Code alignment.

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/App/Container.purs
View file

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

4
src/App/Page/Zone.purs
View file

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

4
src/App/Templates/Modal.purs
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 "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.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.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.hr
, Web.quote Explanations.dmarc_ri , Web.quote Explanations.dmarc_ri