Parse URIs starting with numbers

bin/dune

@@ -1,4 +1,4 @@
 (executable
  (name cli)
  (modules cli)
- (libraries text parsers))
+ (libraries parsers))

parsers/uri.ml

@@ -8,7 +8,7 @@ open Text_parse.Cursor
 
 module Angled (F : Fn) = struct
   type t = F.t
-  let s cur = function '<' -> letter (char_at cur 1) | _ -> false
+  let s cur = function '<' -> let c = char_at cur 1 in letter c || digit c | _ -> false
   let e _cur = function '>' -> true | _ -> false
   let parse cur acc = F.angled_uri (segment_string (unwrap 1 cur)) acc
 end

syntax.ml

@@ -8,3 +8,4 @@ end
 let newline = function '\n' -> true | _ -> false
 let printable ch = ch >= ' ' && ch <= '~'
 let letter ch = (ch >= 'A' && ch <= 'Z') || (ch >= 'a' && ch <= 'z')
+let digit = function '0' .. '9' -> true | _ -> false