module Unsafe where


import Control.Concurrent.MVar
import System.IO.Unsafe

logLock :: MVar ()
logLock = unsafePerformIO (newMVar ())