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

Remove debug info from error titles.

display
Philippe Pittoli 2024-03-31 21:19:12 +02:00
parent d348d4e03d
commit a189d931dc
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/App/DisplayErrors.purs
View File

@ -53,28 +53,28 @@ show_error_key_sizes min max
-- | `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.
show_error_title :: ValidationDNS.Error -> String show_error_title :: ValidationDNS.Error -> String
show_error_title v = case v of show_error_title v = case v of
ValidationDNS.UNKNOWN -> "Unknown" ValidationDNS.UNKNOWN -> "Unknown"
ValidationDNS.VEIPv4 err -> "The IPv4 address is wrong (position: " <> show err.position <> ")" ValidationDNS.VEIPv4 _ -> "The IPv4 address is wrong"
ValidationDNS.VEIPv6 err -> "The IPv6 address is wrong (position: " <> show err.position <> ")" ValidationDNS.VEIPv6 _ -> "The IPv6 address is wrong"
ValidationDNS.VEName err -> "The name (domain label) is wrong (position: " <> show err.position <> ")" ValidationDNS.VEName _ -> "The name (domain label) is wrong"
ValidationDNS.VETTL min max n -> "Invalid TTL (min: " <> show min <> ", max: " <> show max <> ", n: " <> show n <> ")" ValidationDNS.VETTL _ _ _ -> "Invalid TTL"
ValidationDNS.VETXT err -> "The TXT input is wrong (position: " <> show err.position <> ")" ValidationDNS.VETXT _ -> "The TXT input is wrong"
ValidationDNS.VECNAME err -> "The CNAME input is wrong (position: " <> show err.position <> ")" ValidationDNS.VECNAME _ -> "The CNAME input is wrong"
ValidationDNS.VENS err -> "The NS input is wrong (position: " <> show err.position <> ")" ValidationDNS.VENS _ -> "The NS input is wrong"
ValidationDNS.VEMX err -> "The MX target input is wrong (position: " <> show err.position <> ")" ValidationDNS.VEMX _ -> "The MX target input is wrong"
ValidationDNS.VEPriority min max n -> "Invalid Priority (min: " <> show min <> ", max: " <> show max <> ", n: " <> show n <> ")" ValidationDNS.VEPriority _ _ _ -> "Invalid Priority"
ValidationDNS.VESRV err -> "The SRV target input is wrong (position: " <> show err.position <> ")" ValidationDNS.VESRV _ -> "The SRV target input is wrong"
ValidationDNS.VEProtocol err -> "The Protocol input is wrong (position: " <> show err.position <> ")" ValidationDNS.VEProtocol _ -> "The Protocol input is wrong"
ValidationDNS.VEPort min max n -> "Invalid Port (min: " <> show min <> ", max: " <> show max <> ", n: " <> show n <> ")" ValidationDNS.VEPort _ _ _ -> "Invalid Port"
ValidationDNS.VEWeight min max n -> "Invalid Weight (min: " <> show min <> ", max: " <> show max <> ", n: " <> show n <> ")" ValidationDNS.VEWeight _ _ _ -> "Invalid Weight"
-- SPF dedicated RR -- SPF dedicated RR
ValidationDNS.VESPFMechanismName err -> "The domain name in a SPF mechanism is wrong (position: " <> show err.position <> ")" ValidationDNS.VESPFMechanismName _ -> "The domain name in a SPF mechanism is wrong"
ValidationDNS.VESPFMechanismIPv4 err -> "The IPv4 address in a SPF mechanism is wrong (position: " <> show err.position <> ")" ValidationDNS.VESPFMechanismIPv4 _ -> "The IPv4 address in a SPF mechanism is wrong"
ValidationDNS.VESPFMechanismIPv6 err -> "The IPv6 address in a SPF mechanism is wrong (position: " <> show err.position <> ")" ValidationDNS.VESPFMechanismIPv6 _ -> "The IPv6 address in a SPF mechanism is wrong"
ValidationDNS.VESPFModifierName err -> "The domain name in a SPF modifier (EXP or REDIRECT) is wrong (position: " <> show err.position <> ")" ValidationDNS.VESPFModifierName _ -> "The domain name in a SPF modifier (EXP or REDIRECT) is wrong"
ValidationDNS.DKIMInvalidKeySize _ _ -> "Public key has an invalid length." ValidationDNS.DKIMInvalidKeySize _ _ -> "Public key has an invalid length"
show_error_domain :: forall w i. DomainParser.DomainError -> HH.HTML w i show_error_domain :: forall w i. DomainParser.DomainError -> HH.HTML w i
show_error_domain e = case e of show_error_domain e = case e of