tuned signature;
authorwenzelm
Wed, 28 May 2014 16:16:40 +0200
changeset 57105 bf5ddf4ec64b
parent 57104 b93e0680a5b3
child 57106 52e1e424eec1
tuned signature;
src/Pure/Isar/outer_syntax.ML
src/Pure/Thy/thy_syntax.ML
--- 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