From 634aad96b77f8e5b017ad87cf1d22e6fbbe1808a Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Sat, 20 Jan 2024 01:05:11 +0100 Subject: [PATCH] (Very minor) code clean-up. --- src/GenericParser/DomainParser.purs | 6 +++--- src/GenericParser/Parser.purs | 3 +-- test/Main.purs | 2 +- 3 files changed, 5 insertions(+), 6 deletions(-) diff --git a/src/GenericParser/DomainParser.purs b/src/GenericParser/DomainParser.purs index 5a080ca..58f23f2 100644 --- a/src/GenericParser/DomainParser.purs +++ b/src/GenericParser/DomainParser.purs @@ -13,12 +13,12 @@ import Data.String as S import Data.String.CodeUnits as CU -- Import all common functions between RFC1035 and modern domain parsing. -import GenericParser.DomainParser.Common (DomainError(..), eof, ldh_str, let_dig, let_dig_hyp, max_domain_length, max_label_length, Size) +import GenericParser.DomainParser.Common (DomainError(..), eof, ldh_str, let_dig, max_domain_length, max_label_length) import GenericParser.Parser (Parser(..) - , success, failureError + , failureError , current_position - , alphanum, char, letter, many1, parse, string + , char, letter, parse, string , try, tryMaybe) -- | From RFC 1035: