1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/System/NoSignal.hs b/src/GF/System/NoSignal.hs
index 5b7827f32..fdad89b27 100644
--- a/src/GF/System/NoSignal.hs
+++ b/src/GF/System/NoSignal.hs
@@ -24,3 +24,6 @@ runInterruptibly a =
     p `catch` h
   where p = a >>= \x -> return $! Right $! x
         h e = return $ Left e
+
+blockInterrupt :: IO a -> IO a
+blockInterrupt = id
+\ No newline at end of file