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/tutorial.sml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/tutorial.sml')

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