X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/d351d679283a797c98f5f65d18aa757c18e56305..55d4a2686f9334ccd03602c86e43395acef9537d:/src/compat_mlton.sml

diff --git a/src/compat_mlton.sml b/src/compat_mlton.sml
index 06aa3a3..9a6b60f 100644
--- a/src/compat_mlton.sml
+++ b/src/compat_mlton.sml
@@ -18,6 +18,9 @@
 
 structure Compat : COMPAT = struct
     structure Char = MLRep.Char.Unsigned
+
+    val getattr = Posix.TTY.TC.getattr
+    val setattr = Posix.TTY.TC.setattr
 end
 
 val _ = let