diff options
author | Benjamin Barenblat <bbaren@mit.edu> | 2016-10-23 14:26:59 -0400 |
---|---|---|
committer | Benjamin Barenblat <bbaren@mit.edu> | 2016-10-23 14:26:59 -0400 |
commit | 235602373c04aa38b7f8c93e6efbd9276ecc2266 (patch) | |
tree | 97c39e67902dd84d088ab930d8675e90760a674a /src/demo.sml | |
parent | c921d0df325c803fed8c7742eb088cb3d030d541 (diff) | |
parent | 20f3308b8c2a5a331239839e222bd21befde73eb (diff) |
Merge branch 'upstream' into dfsg_clean20161022+dfsg
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 () = |