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/demo.sml | |
| parent | c49ad46cc190e63f2395fcef03deff4386845877 (diff) | |
HTTP Last-Modified: latest modtime of source files
See issue #38.
Diffstat (limited to 'src/demo.sml')
| -rw-r--r-- | src/demo.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/demo.sml b/src/demo.sml index 0d9f0f4f..47d22395 100644 --- a/src/demo.sml +++ b/src/demo.sml @@ -33,7 +33,7 @@ fun make' {prefix, dirname, guided} = let val prose = OS.Path.joinDirFile {dir = dirname, file = "prose"} - val inf = TextIO.openIn prose + val inf = FileIO.txtOpenIn prose val outDir = OS.Path.concat (dirname, "out") @@ -351,7 +351,7 @@ fun make' {prefix, dirname, guided} = SOME "urp" => doit (fn (src, html) => let - val inf = TextIO.openIn src + val inf = FileIO.txtOpenIn src val out = TextIO.openOut html fun loop () = |