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

diff --git a/src/compat_mlton.sml b/src/compat_mlton.sml
index 5b52b14..06aa3a3 100644
--- a/src/compat_mlton.sml
+++ b/src/compat_mlton.sml
@@ -19,3 +19,9 @@
 structure Compat : COMPAT = struct
     structure Char = MLRep.Char.Unsigned
 end
+
+val _ = let
+    open MLton.Signal
+in
+    setHandler (Posix.Signal.pipe, Handler.ignore)
+end