From a8066eefd261673faf49a66c08846b8694cff9db Mon Sep 17 00:00:00 2001 From: Chris Done Date: Mon, 1 Sep 2025 13:19:38 +0100 Subject: [PATCH] Fix sigterm handler --- app/Main.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 03114d3..e63b372 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,10 +1,11 @@ import Perf.Web import Criterion.Measurement import System.Posix.Signals -import System.Exit +import Control.Concurrent main :: IO () main = do - _ <- installHandler sigTERM (Catch (exitWith ExitSuccess)) Nothing + me <- myThreadId + _ <- installHandler sigTERM (Catch (killThread me)) Nothing initializeTime server