From 0c8bad166577f9973ba5701aee5ca5d9a3f3bc5d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 13 Oct 2024 16:50:13 +0200
Subject: Custom C main instead of wrapper binary

Changelog: Use custom C main instead of wrapper binary for unshare(2) call.
---
 src/Main.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 42b2e5b..01bb766 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -157,3 +157,7 @@ main = do
     ok <- allM (uncurry $ runTest out $ optTest opts) $
         concat $ replicate (optRepeat opts) $ concat tests
     when (not ok) exitFailure
+
+foreign export ccall testerMain :: IO ()
+testerMain :: IO ()
+testerMain = main
-- 
cgit v1.2.3