X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/46a6e6093d6e085c465833421a7dffadef9ba47c..24b2afcb2f3745654bd3a7e4fa8c4a8f42a9b1b8:/src/client.sml?ds=sidebyside

diff --git a/src/client.sml b/src/client.sml
index 0c4112f..a92b13f 100644
--- a/src/client.sml
+++ b/src/client.sml
@@ -25,6 +25,9 @@ datatype passwd_result =
        | Aborted
        | Error
 
+fun hastty () =
+    Posix.ProcEnv.isatty Posix.FileSys.stdin
+
 fun getpass () =
     let
 	val tty = Posix.FileSys.stdin