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

New error message for signature algorithms accepting an unique nb of chars.

caa
Philippe Pittoli 2024-11-09 20:00:18 +01:00
parent dc793637ae
commit 4e983506f9
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/App/DisplayErrors.purs
View File

@ -1,7 +1,7 @@
-- | This module provides functions to display errors in a fancy way. -- | This module provides functions to display errors in a fancy way.
module App.DisplayErrors where module App.DisplayErrors where
import Prelude (show, ($), (<>)) import Prelude (show, ($), (<>), (==))
-- import Data.Foldable as Foldable -- import Data.Foldable as Foldable
import Data.Maybe (Maybe(..), maybe) import Data.Maybe (Maybe(..), maybe)
@ -60,7 +60,9 @@ error_to_paragraph v = Bulma.error_message (Bulma.p $ show_error_title v)
show_error_key_sizes :: forall w i. Int -> Int -> HH.HTML w i show_error_key_sizes :: forall w i. Int -> Int -> HH.HTML w i
show_error_key_sizes min max show_error_key_sizes min max
= Bulma.p $ "Chosen signature algorithm only accepts public key input between " = if min == max
then Bulma.p $ "Chosen signature algorithm only accepts public key input of " <> show min <> " characters."
else Bulma.p $ "Chosen signature algorithm only accepts public key input between "
<> show min <> " and " <> show max <> " characters." <> show min <> " and " <> show max <> " characters."
-- | `show_error_title` provide a simple title string to display to the user in case of an error with an entry. -- | `show_error_title` provide a simple title string to display to the user in case of an error with an entry.