diff options
Diffstat (limited to '')
| -rw-r--r-- | gemini/geminiTransaction.ml | 6 | ||||
| -rw-r--r-- | gemini/geminiTransaction.mli | 1 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gemini/geminiTransaction.ml b/gemini/geminiTransaction.ml index 1a73a93..77f1206 100644 --- a/gemini/geminiTransaction.ml +++ b/gemini/geminiTransaction.ml @@ -10,6 +10,7 @@ sig type response = | INPUT + | SENSITIVE_INPUT | SUCCESS of mime_type * string | SUCCESS_EOCSS of mime_type * string | REDIR_TEMP of string @@ -66,6 +67,7 @@ struct type response = | INPUT + | SENSITIVE_INPUT | SUCCESS of mime_type * string | SUCCESS_EOCSS of mime_type * string | REDIR_TEMP of string @@ -120,6 +122,7 @@ struct let int_of_response = function | INPUT -> 10 + | SENSITIVE_INPUT -> 11 | SUCCESS _ -> 20 | SUCCESS_EOCSS _ -> 21 | REDIR_TEMP _ -> 30 @@ -143,6 +146,7 @@ struct let name_of_response = function | INPUT -> "10 INPUT" + | SENSITIVE_INPUT -> "11 SENSITIVE INPUT" | SUCCESS _ -> "20 SUCCESS" | SUCCESS_EOCSS _ -> "21 SUCCESS - END OF CLIENT CERTIFICATE SESSION" | REDIR_TEMP _ -> "30 REDIRECT - TEMPORARY" @@ -166,6 +170,7 @@ struct let header_of_response = function | INPUT -> "10 " + | SENSITIVE_INPUT -> "11 " | SUCCESS (m, _) -> "20 " ^ (M.to_canonical m) | SUCCESS_EOCSS (m, _) -> "21 " ^ (M.to_canonical m) | REDIR_TEMP u -> "30 " ^ u @@ -191,6 +196,7 @@ struct let open Angstrom in let open ParseCommon.ParseCommon in (string "10 " *> return INPUT) + <|> (string "11 " *> return SENSITIVE_INPUT) <|> lift2 (fun m -> fun b -> SUCCESS (M.from_string m, b)) (string "20 " *> take_till_cr) (take_while (fun _ -> true) <* end_of_input) diff --git a/gemini/geminiTransaction.mli b/gemini/geminiTransaction.mli index cc209d0..4a89ab1 100644 --- a/gemini/geminiTransaction.mli +++ b/gemini/geminiTransaction.mli @@ -10,6 +10,7 @@ sig type response = | INPUT + | SENSITIVE_INPUT | SUCCESS of mime_type * string | SUCCESS_EOCSS of mime_type * string | REDIR_TEMP of string |