From a0e8f6962478913ebebac34769af081374742219 Mon Sep 17 00:00:00 2001 From: Ryan Kavanagh Date: Sun, 7 Jun 2020 20:27:11 -0400 Subject: Add support for quoted lines --- gemini/mimeTextGemini.mli | 3 +++ 1 file changed, 3 insertions(+) (limited to 'gemini/mimeTextGemini.mli') diff --git a/gemini/mimeTextGemini.mli b/gemini/mimeTextGemini.mli index aa8d462..941cf94 100644 --- a/gemini/mimeTextGemini.mli +++ b/gemini/mimeTextGemini.mli @@ -14,6 +14,7 @@ sig | Pre of string (* preformatted text line *) | Text of string (* plain text line *) | Ul of string (* unordered list item *) + | Quoted of string (* quoted text *) type gemini = gemini_line list @@ -37,6 +38,8 @@ sig val str_to_list_line : string -> gemini_line + val str_to_quoted_line : string -> gemini_line + val str_to_gemini : string -> gemini end -- cgit v1.2.3