X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/a49a9bfbe03214c68d029fe856a56006267bc8a3..4542571e02a2517e6ca9c342d433343293b06be8:/src/compat_mlton.sml

diff --git a/src/compat_mlton.sml b/src/compat_mlton.sml
index 5b52b14..9a6b60f 100644
--- a/src/compat_mlton.sml
+++ b/src/compat_mlton.sml
@@ -18,4 +18,13 @@
 
 structure Compat : COMPAT = struct
     structure Char = MLRep.Char.Unsigned
+
+    val getattr = Posix.TTY.TC.getattr
+    val setattr = Posix.TTY.TC.setattr
+end
+
+val _ = let
+    open MLton.Signal
+in
+    setHandler (Posix.Signal.pipe, Handler.ignore)
 end