X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/21d921a56a850857f6ea883c6dff6a411a659bbf..cd04086681583dd3fcc95b6e12ba312054dc590e:/src/client.sml

diff --git a/src/client.sml b/src/client.sml
index 863c0c0..4d32f65 100644
--- 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)