From 51ac19f565fa935eec6d9dd1f7119c6227383a3c Mon Sep 17 00:00:00 2001
From: Jacob Mitchell <jmitchell@member.fsf.org>
Date: Wed, 7 Sep 2016 13:19:13 -0700
Subject: HTTP Last-Modified: latest modtime of source files

See issue #38.
---
 src/demo.sml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/demo.sml')

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 () =
-- 
cgit v1.2.3