Commits

camlspotter committed 9e14ba7

fix

Comments (0)

Files changed (1)

 end
 
 module type SPlankSbuffer = module type of Planck.String(Sbuffer)
-
-module P : sig
+module type P = sig
   include SPlankSbuffer (* OCaml cannot permit writing module type of Planck.String(Sbuffer) *)
   type mark
   val mark : mark t
   val with_substr : 'a t -> (string * 'a) t
   val (</>) : 'a t -> 'a t -> 'a t
     (** longest match *)
-end = struct
+end
+
+module P : P = struct
   include Planck.String(Sbuffer)
 
   type mark = Sbuffer.t * int (* abs_pos *)
     substr (char_uppercase >>= fun _ -> 
             star (char_uppercase <|> char_lowercase <|> char_lowercase_symbol <|> Literal.Char.digit_char))
 end
+
+let space = tokenp "[ \t\r\n] expected" (function
+  | ' ' | '\t' | '\r' | '\n' -> true
+  | _ -> false)