diff --git a/bin/dune b/bin/dune index d248da2..d36be1c 100644 --- a/bin/dune +++ b/bin/dune @@ -1,4 +1,4 @@ (executable (name cli) (modules cli) - (libraries text parsers)) + (libraries parsers)) diff --git a/dune-project b/dune-project index 82f3d83..34e789a 100644 --- a/dune-project +++ b/dune-project @@ -1,13 +1,9 @@ (lang dune 2.4) (name text_parse) (version 1.02) -(homepage "https://cgit.orbitalfox.eu/text-parse-ml") -(source (uri git://orbitalfox.eu/text-parse-ml)) (license EUPL) -(authors "orbifx") -(maintainers "fox@orbitalfox.eu") -(bug_reports "mailto:fox@orbitalfox.eu?subject=Text parse ML Issue:") +(maintainers "orbifx ") (generate_opam_files true) diff --git a/parsers/uri.ml b/parsers/uri.ml index 1db5e8a..5ed6cc0 100644 --- a/parsers/uri.ml +++ b/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 diff --git a/syntax.ml b/syntax.ml index 8e4f2e7..cf059a4 100644 --- a/syntax.ml +++ b/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 diff --git a/text_parse.opam b/text_parse.opam index ed57b02..585d6cc 100644 --- a/text_parse.opam +++ b/text_parse.opam @@ -2,11 +2,8 @@ opam-version: "2.0" version: "1.02" synopsis: "Applicative text parsing" -maintainer: ["fox@orbitalfox.eu"] -authors: ["orbifx"] +maintainer: ["orbifx "] license: "EUPL" -homepage: "https://cgit.orbitalfox.eu/text-parse-ml" -bug-reports: "mailto:fox@orbitalfox.eu?subject=Text parse ML Issue:" depends: [ "dune" {>= "2.4"} ] @@ -24,4 +21,3 @@ build: [ "@doc" {with-doc} ] ] -dev-repo: "git://orbitalfox.eu/text-parse-ml"