From e3ea04d8e71370032da56ad9ea66dcb82d257812 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Fri, 8 May 2026 20:59:08 +0100
Subject: Instrument handler blocks

---
 src/AtomicPrint.hs | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100644 src/AtomicPrint.hs

(limited to 'src/AtomicPrint.hs')

diff --git a/src/AtomicPrint.hs b/src/AtomicPrint.hs
deleted file mode 100644
index 82a8552..0000000
--- a/src/AtomicPrint.hs
+++ /dev/null
@@ -1,33 +0,0 @@
-{-# OPTIONS_GHC -fno-full-laziness -fno-cse #-}
-module AtomicPrint (
-  atomicPrint, atomicPrintS,
-  atomicPrintNoWait, atomicPrintNoWaitS,
-) where
-
-import Control.Concurrent
-import Control.Monad (void)
-import Data.Text qualified as T
-import Data.Text.IO.Utf8 qualified as T
-import Data.Text (Text)
-import System.IO
-import System.IO.Unsafe (unsafePerformIO)
-
-
-{-# NOINLINE mutex #-}
-mutex :: MVar ()
-mutex = unsafePerformIO (newMVar ())
-
-atomicPrintS :: String -> IO ()
-atomicPrintS = atomicPrint . T.pack
-
-atomicPrint :: Text -> IO ()
-atomicPrint text =
-  withMVar mutex $ \() ->
-    T.putStrLn text >> hFlush stdout
-
-atomicPrintNoWaitS :: String -> IO ()
-atomicPrintNoWaitS = atomicPrintNoWait . T.pack
-
--- | Does not block, so if you've masked exceptions, nothing will come through here
-atomicPrintNoWait :: Text -> IO ()
-atomicPrintNoWait text = void $ forkIO $ atomicPrint text
-- 
cgit v1.3.1