--- a/src/Pure/Isar/outer_syntax.ML Wed May 28 14:02:49 2014 +0200
+++ b/src/Pure/Isar/outer_syntax.ML Wed May 28 16:16:40 2014 +0200
@@ -36,7 +36,7 @@
type isar
val isar: TextIO.instream -> bool -> isar
val side_comments: Token.T list -> Token.T list
- val command_reports: outer_syntax -> Token.T -> (Position.report * string) list
+ val command_reports: outer_syntax -> Token.T -> Position.report_text list
val read_spans: outer_syntax -> Token.T list -> Toplevel.transition list
end;
--- a/src/Pure/Thy/thy_syntax.ML Wed May 28 14:02:49 2014 +0200
+++ b/src/Pure/Thy/thy_syntax.ML Wed May 28 16:16:40 2014 +0200
@@ -7,7 +7,7 @@
signature THY_SYNTAX =
sig
val parse_tokens: Scan.lexicon * Scan.lexicon -> Position.T -> string -> Token.T list
- val reports_of_tokens: Token.T list -> bool * (Position.report * string) list
+ val reports_of_tokens: Token.T list -> bool * Position.report_text list
val present_token: Token.T -> Output.output
datatype span_kind = Command of string * Position.T | Ignored | Malformed
datatype span = Span of span_kind * Token.T list