src/Pure/Isar/token.ML
changeset 55788 67699e08e969
parent 55750 baa7a1e57f4a
child 55828 42ac3cfb89f6
--- a/src/Pure/Isar/token.ML	Thu Feb 27 17:24:46 2014 +0100
+++ b/src/Pure/Isar/token.ML	Thu Feb 27 17:29:58 2014 +0100
@@ -10,7 +10,7 @@
     Command | Keyword | Ident | LongIdent | SymIdent | Var | TypeIdent | TypeVar |
     Nat | Float | String | AltString | Verbatim | Cartouche | Space | Comment | InternalValue |
     Error of string | Sync | EOF
-  type file = {src_path: Path.T, text: string, pos: Position.T}
+  type file = {src_path: Path.T, lines: string list, digest: SHA1.digest, pos: Position.T}
   datatype value =
     Text of string | Typ of typ | Term of term | Fact of thm list |
     Attribute of morphism -> attribute | Files of file Exn.result list
@@ -80,7 +80,7 @@
   args.ML).  Note that an assignable ref designates an intermediate
   state of internalization -- it is NOT meant to persist.*)
 
-type file = {src_path: Path.T, text: string, pos: Position.T};
+type file = {src_path: Path.T, lines: string list, digest: SHA1.digest, pos: Position.T};
 
 datatype value =
   Text of string |