HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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,
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}
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;
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)
case TextIO.inputLine TextIO.stdIn of
NONE => (reset ();
Aborted)