src/Pure/PIDE/isar_document.ML
changeset 44185 05641edb5d30
parent 44182 ecb51b457064
child 44197 458573968568
     1.1 --- a/src/Pure/PIDE/isar_document.ML	Sat Aug 13 16:07:26 2011 +0200
     1.2 +++ b/src/Pure/PIDE/isar_document.ML	Sat Aug 13 20:20:36 2011 +0200
     1.3 @@ -22,10 +22,11 @@
     1.4              let open XML.Decode in
     1.5                list (pair string
     1.6                  (variant
     1.7 -                 [fn ([], []) => Document.Remove,
     1.8 +                 [fn ([], []) => Document.Clear,
     1.9                    fn ([], a) => Document.Edits (list (pair (option int) (option int)) a),
    1.10                    fn ([], a) =>
    1.11 -                    Document.Header (Exn.Res (triple string (list string) (list string) a)),
    1.12 +                    Document.Header
    1.13 +                      (Exn.Res (triple string (list string) (list (pair string bool)) a)),
    1.14                    fn ([a], []) => Document.Header (Exn.Exn (ERROR a))]))
    1.15              end;
    1.16