Catch-all aliases working again

[hcoop/domtool2.git] / src / client.sml

diff --git a/src/client.sml b/src/client.sml
index 863c0c0..4d32f65 100644 (file)
--- a/src/client.sml
+++ b/src/client.sml
@@ -28,7 +28,7 @@ datatype passwd_result =
 fun getpass () =
     let
        val tty = Posix.FileSys.stdin
-       val termios = Posix.TTY.TC.getattr tty
+       val termios = Compat.getattr tty
        val fields = Posix.TTY.fieldsOf termios
 
        val termios' = Posix.TTY.termios {iflag = #iflag fields,
@@ -41,11 +41,11 @@ fun getpass () =
                                          ispeed = #ispeed fields,
                                          ospeed = #ospeed fields}
 
-       fun reset () = Posix.TTY.TC.setattr (tty, Posix.TTY.TC.sanow, termios)
+       fun reset () = Compat.setattr (tty, Posix.TTY.TC.sanow, termios)
     in
        print "        Password: ";
        TextIO.flushOut TextIO.stdOut;
-       Posix.TTY.TC.setattr (tty, Posix.TTY.TC.sanow, termios');
+       Compat.setattr (tty, Posix.TTY.TC.sanow, termios');
        case TextIO.inputLine TextIO.stdIn of
            NONE => (reset ();
                     Aborted)