Baguette
/
dnsmanager-webclient
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Log out button.

caa
Philippe Pittoli 2024-11-24 00:01:37 +01:00
parent c95d0e46b2
commit a8d02ac392
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/App/Page/Navigation.purs
View File

@ -27,7 +27,7 @@ data Output
= Log LogMessage = Log LogMessage
-- | Once someone clicks on a routing button, `App.Container` needs to know. -- | Once someone clicks on a routing button, `App.Container` needs to know.
| Routing Page | Routing Page
-- | Once someone clicks on a the Disconnection button, `App.Container` needs to know. -- | Once someone clicks on a the Logout button, `App.Container` needs to know.
| Disconnection | Disconnection
-- | The component needs to know when the user is logged or not. -- | The component needs to know when the user is logged or not.
@ -168,7 +168,7 @@ render { logged, active, admin, login } =
render_login Nothing = [] render_login Nothing = []
render_login (Just l)= [nav_link ("logged as " <> l) (Navigate Setup)] render_login (Just l)= [nav_link ("logged as " <> l) (Navigate Setup)]
link_disconnection = link_disconnection =
nav_link_ [C.has_text_light, C.has_background_danger] "Disconnection" UnLog nav_link_ [C.has_text_light, C.has_background_danger] "Log out" UnLog
dropdown title dropdown_elements dropdown title dropdown_elements
= HH.div [HP.classes [C.navbar_item, C.has_dropdown, C.is_hoverable]] = HH.div [HP.classes [C.navbar_item, C.has_dropdown, C.is_hoverable]]