Updated for SML/NJ 110.46+

[bpt/mlt.git] / src / common.sml

diff --git a/src/common.sml b/src/common.sml
index b9e8920..0180b78 100644 (file)
--- a/src/common.sml
+++ b/src/common.sml
@@ -107,8 +107,8 @@ struct
 
                fun copy () =
                    (case TextIO.inputLine inf of
-                        "" => ()
-                      | line => (TextIO.output (outf, line);
+                        NONE => ()
+                      | SOME line => (TextIO.output (outf, line);
                                  copy ()))
            in
                copy ();
@@ -129,8 +129,8 @@ struct
            val inf = TextIO.openIn fname
            fun read acc =
                (case TextIO.inputLine inf of
-                    "" => String.concat (rev acc)
-                  | line => read (line::acc))
+                    NONE => String.concat (rev acc)
+                  | SOME line => read (line::acc))
        in
            read []
            before TextIO.closeIn inf