cec56ea18c
TODO: markdown & gemini coming git-svn-id: file:///srv/svn/repo/text_parse/trunk@1 cb476dc4-a1c2-9446-a177-162899b6b847
12 lines
252 B
OCaml
12 lines
252 B
OCaml
module type Fn = sig
|
|
type t
|
|
val blank_line: t -> t
|
|
end
|
|
|
|
module Make (F : Fn) = struct
|
|
type t = F.t
|
|
let s _cur = function '\n' -> true | _ -> false
|
|
let e _cur = function '\n' -> true | _ -> false
|
|
let parse _cursor acc = F.blank_line acc
|
|
end
|