From d016f69818b30b75d186fb14f440b93b0518fc66 Mon Sep 17 00:00:00 2001 From: Emilio Jesus Gallego Arias Date: Thu, 21 Nov 2019 15:38:39 +0100 Subject: [coq] Untabify the whole ML codebase. We also remove trailing whitespace. Script used: ```bash for i in `find . -name '*.ml' -or -name '*.mli' -or -name '*.mlg'`; do expand -i "$i" | sponge "$i"; sed -e's/[[:space:]]*$//' -i.bak "$i"; done ``` --- ide/protocol/xml_lexer.mli | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'ide/protocol') diff --git a/ide/protocol/xml_lexer.mli b/ide/protocol/xml_lexer.mli index e61cb055f7..920de9f9c3 100644 --- a/ide/protocol/xml_lexer.mli +++ b/ide/protocol/xml_lexer.mli @@ -18,26 +18,26 @@ *) type error = - | EUnterminatedComment - | EUnterminatedString - | EIdentExpected - | ECloseExpected - | ENodeExpected - | EAttributeNameExpected - | EAttributeValueExpected - | EUnterminatedEntity + | EUnterminatedComment + | EUnterminatedString + | EIdentExpected + | ECloseExpected + | ENodeExpected + | EAttributeNameExpected + | EAttributeValueExpected + | EUnterminatedEntity exception Error of error type token = - | Tag of string * (string * string) list * bool - | PCData of string - | Endtag of string - | Eof + | Tag of string * (string * string) list * bool + | PCData of string + | Endtag of string + | Eof type pos = int * int * int * int -val init : Lexing.lexbuf -> unit +val init : Lexing.lexbuf -> unit val close : unit -> unit val token : Lexing.lexbuf -> token val pos : Lexing.lexbuf -> pos -- cgit v1.2.3