From b23b507f98f75aa27658f505dd51e79eacc09df0 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Sat, 23 Mar 2024 20:21:50 +0100 Subject: [PATCH] Minor changes. --- src/App/Container.purs | 2 ++ src/App/Page/Administration.purs | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/App/Container.purs b/src/App/Container.purs index fa6cd9b..688c5be 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -710,6 +710,8 @@ handleAction = case _ of handleAction $ DispatchDNSMessage m m@(DNSManager.MkDomainAdded response) -> do handleAction $ Log $ SuccessLog $ "Domain added: " <> response.domain + handleAction $ AddNotif $ GoodNotification $ "You just registered the domain \"" + <> response.domain <> "\"! 🥳 You can now manage it (click on its button)." handleAction $ DispatchDNSMessage m (DNSManager.MkRRReadOnly response) -> do handleAction $ Log $ ErrorLog $ "Trying to modify a read-only resource! " diff --git a/src/App/Page/Administration.purs b/src/App/Page/Administration.purs index 069f805..f6917d8 100644 --- a/src/App/Page/Administration.purs +++ b/src/App/Page/Administration.purs @@ -184,7 +184,7 @@ render { addUserForm, searchUserForm, matching_users, current_tab, orphan_domain [ HE.onSubmit PreventSubmit ] [ Bulma.p """ Following input accepts any regex. - This will be used to search an user based on his login, full name or email address. + This is used to search for a user based on their login, full name or email address. """ , Bulma.box_input "regex" "Regex" "regex" (up SEARCHUSER_INP_regex) searchUserForm.regex active --, Bulma.btn_labeled "adminbtn" "Admin" (show searchUserForm.admin)