Merge pull request #40 from garyb/numeric-hostname-parse-fix

Allow parsing of hostnames that start with numbers

Author: garyb

src/Data/URI/Host.purs

@@ -36,7 +36,7 @@ derive instance genericHost ∷ Generic Host _
 instance showHost ∷ Show Host where show = genericShow
 
 parser ∷ Parser Host
-parser = ipv6AddressParser <|> ipv4AddressParser <|> try regNameParser
+parser = try ipv6AddressParser <|> try ipv4AddressParser <|> regNameParser
 
 -- TODO: this is much too forgiving right now
 ipv6AddressParser ∷ Parser Host

test/Main.purs

@@ -162,6 +162,16 @@ main = runTest $ suite "Data.URI" do
             Nothing)
           Nothing
           Nothing))
+    testIsoURIRef
+      "https://1a.example.com"
+      (Left
+        (URI
+          (Just (Scheme "https"))
+          (HierarchicalPart
+            (Just (Authority Nothing [(Tuple (NameAddress "1a.example.com") Nothing)]))
+            Nothing)
+          Nothing
+          Nothing))
     testIsoURIRef
       "http://en.wikipedia.org/wiki/URI_scheme"
       (Left