Instrument handler blocks

1 files changed, 0 insertions, 33 deletions

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