changeset 55788 | 67699e08e969 |
parent 55708 | f4b114070675 |
child 55882 | 912c9aa8de32 |
--- a/src/Pure/Thy/thy_load.ML Thu Feb 27 17:24:46 2014 +0100 +++ b/src/Pure/Thy/thy_load.ML Thu Feb 27 17:29:58 2014 +0100 @@ -100,7 +100,7 @@ parse_files cmd >> (fn files => fn thy => let val fs = files thy; - val thy' = fold (fn {src_path, text, ...} => provide (src_path, SHA1.digest text)) fs thy; + val thy' = fold (fn {src_path, digest, ...} => provide (src_path, digest)) fs thy; in (fs, thy') end); fun load_file thy src_path =