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