diff options
author | Ryan Kavanagh <rak@rak.ac> | 2020-06-02 14:27:47 -0400 |
---|---|---|
committer | Ryan Kavanagh <rak@rak.ac> | 2020-06-07 11:39:58 -0400 |
commit | 5833971a52a4e6e078988fa88738e5a5180cce36 (patch) | |
tree | c9907a47fdc0c0b364161826668752d637a3f9aa /gemini/parseCommon.mli | |
parent | string_to_request -> make_request (diff) |
Split common parsing functions into separate function
Diffstat (limited to 'gemini/parseCommon.mli')
-rw-r--r-- | gemini/parseCommon.mli | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gemini/parseCommon.mli b/gemini/parseCommon.mli new file mode 100644 index 0000000..2994e6e --- /dev/null +++ b/gemini/parseCommon.mli @@ -0,0 +1,18 @@ +module type PARSE_COMMON = +sig + val is_letter : char -> bool + + val is_digit : char -> bool + + val is_whitespace : char -> bool + + val is_cr : char -> bool + + val lift_or : ('a -> bool) -> ('a -> bool) -> 'a -> bool + + val skip_spaces : unit Angstrom.t + + val take_till_cr : string Angstrom.t +end + +module ParseCommon : PARSE_COMMON |