diff options
author | Jacob Mitchell <jmitchell@member.fsf.org> | 2016-09-07 13:19:13 -0700 |
---|---|---|
committer | Jacob Mitchell <jmitchell@member.fsf.org> | 2016-09-07 13:19:13 -0700 |
commit | 51ac19f565fa935eec6d9dd1f7119c6227383a3c (patch) | |
tree | 9539e4a61dd38f2e65d78a5805b3eadef26cfebf /src/tutorial.sml | |
parent | c49ad46cc190e63f2395fcef03deff4386845877 (diff) |
HTTP Last-Modified: latest modtime of source files
See issue #38.
Diffstat (limited to 'src/tutorial.sml')
-rw-r--r-- | src/tutorial.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/tutorial.sml b/src/tutorial.sml index dd2d3f7d..0c2f908f 100644 --- a/src/tutorial.sml +++ b/src/tutorial.sml @@ -38,7 +38,7 @@ fun readAll inf = before TextIO.closeIn inf end -val readAllFile = readAll o TextIO.openIn +val readAllFile = readAll o FileIO.txtOpenIn fun fixupFile (fname, title) = let @@ -154,7 +154,7 @@ fun fixupFile (fname, title) = fun doUr fname = let - val inf = TextIO.openIn fname + val inf = FileIO.txtOpenIn fname val title = case TextIO.inputLine inf of NONE => raise Fail ("No title comment at start of " ^ fname) |