From a189d931dc96598d6c90e3781cddea28c44f37f5 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Sun, 31 Mar 2024 21:19:12 +0200 Subject: [PATCH] Remove debug info from error titles. --- src/App/DisplayErrors.purs | 38 +++++++++++++++++++------------------- 1 file changed, 19 insertions(+), 19 deletions(-) diff --git a/src/App/DisplayErrors.purs b/src/App/DisplayErrors.purs index e18491c..32d2ca4 100644 --- a/src/App/DisplayErrors.purs +++ b/src/App/DisplayErrors.purs @@ -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 :: ValidationDNS.Error -> String show_error_title v = case v of - ValidationDNS.UNKNOWN -> "Unknown" - ValidationDNS.VEIPv4 err -> "The IPv4 address is wrong (position: " <> show err.position <> ")" - ValidationDNS.VEIPv6 err -> "The IPv6 address is wrong (position: " <> show err.position <> ")" - ValidationDNS.VEName err -> "The name (domain label) is wrong (position: " <> show err.position <> ")" - ValidationDNS.VETTL min max n -> "Invalid TTL (min: " <> show min <> ", max: " <> show max <> ", n: " <> show n <> ")" - ValidationDNS.VETXT err -> "The TXT input is wrong (position: " <> show err.position <> ")" - ValidationDNS.VECNAME err -> "The CNAME input is wrong (position: " <> show err.position <> ")" - ValidationDNS.VENS err -> "The NS input is wrong (position: " <> show err.position <> ")" - ValidationDNS.VEMX err -> "The MX target input is wrong (position: " <> show err.position <> ")" - ValidationDNS.VEPriority min max n -> "Invalid Priority (min: " <> show min <> ", max: " <> show max <> ", n: " <> show n <> ")" - ValidationDNS.VESRV err -> "The SRV target input is wrong (position: " <> show err.position <> ")" - ValidationDNS.VEProtocol err -> "The Protocol input is wrong (position: " <> show err.position <> ")" - ValidationDNS.VEPort min max n -> "Invalid Port (min: " <> show min <> ", max: " <> show max <> ", n: " <> show n <> ")" - ValidationDNS.VEWeight min max n -> "Invalid Weight (min: " <> show min <> ", max: " <> show max <> ", n: " <> show n <> ")" + ValidationDNS.UNKNOWN -> "Unknown" + ValidationDNS.VEIPv4 _ -> "The IPv4 address is wrong" + ValidationDNS.VEIPv6 _ -> "The IPv6 address is wrong" + ValidationDNS.VEName _ -> "The name (domain label) is wrong" + ValidationDNS.VETTL _ _ _ -> "Invalid TTL" + ValidationDNS.VETXT _ -> "The TXT input is wrong" + ValidationDNS.VECNAME _ -> "The CNAME input is wrong" + ValidationDNS.VENS _ -> "The NS input is wrong" + ValidationDNS.VEMX _ -> "The MX target input is wrong" + ValidationDNS.VEPriority _ _ _ -> "Invalid Priority" + ValidationDNS.VESRV _ -> "The SRV target input is wrong" + ValidationDNS.VEProtocol _ -> "The Protocol input is wrong" + ValidationDNS.VEPort _ _ _ -> "Invalid Port" + ValidationDNS.VEWeight _ _ _ -> "Invalid Weight" -- SPF dedicated RR - ValidationDNS.VESPFMechanismName err -> "The domain name in a SPF mechanism is wrong (position: " <> show err.position <> ")" - ValidationDNS.VESPFMechanismIPv4 err -> "The IPv4 address in a SPF mechanism is wrong (position: " <> show err.position <> ")" - ValidationDNS.VESPFMechanismIPv6 err -> "The IPv6 address in a SPF mechanism is wrong (position: " <> show err.position <> ")" + ValidationDNS.VESPFMechanismName _ -> "The domain name in a SPF mechanism is wrong" + ValidationDNS.VESPFMechanismIPv4 _ -> "The IPv4 address in a SPF mechanism is wrong" + 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.DKIMInvalidKeySize _ _ -> "Public key has an invalid length." + ValidationDNS.VESPFModifierName _ -> "The domain name in a SPF modifier (EXP or REDIRECT) is wrong" + ValidationDNS.DKIMInvalidKeySize _ _ -> "Public key has an invalid length" show_error_domain :: forall w i. DomainParser.DomainError -> HH.HTML w i show_error_domain e = case e of