{-# OPTIONS_GHC -fno-cse #-}
module Platform.DevLog
( writeSpanToDevLog,
)
where
import qualified Control.Concurrent.MVar as MVar
import qualified Control.Monad
import qualified Data.Aeson as Aeson
import qualified Data.ByteString.Lazy
import qualified Data.Time as Time
import NriPrelude
import qualified Platform.Internal
import qualified System.IO
import qualified System.IO.Unsafe
import qualified System.Posix.Files as Files
import qualified Prelude
writeSpanToDevLog :: Platform.Internal.TracingSpan -> Prelude.IO ()
writeSpanToDevLog :: TracingSpan -> IO ()
writeSpanToDevLog TracingSpan
span = do
UTCTime
now <- IO UTCTime
Time.getCurrentTime
let logFile :: FilePath
logFile = FilePath
"/tmp/nri-prelude-logs"
MVar () -> (() -> IO ()) -> IO ()
forall a b. MVar a -> (a -> IO b) -> IO b
MVar.withMVar MVar ()
writeLock ((() -> IO ()) -> IO ()) -> (() -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
<| \()
_ ->
FilePath -> IOMode -> (Handle -> IO ()) -> IO ()
forall r. FilePath -> IOMode -> (Handle -> IO r) -> IO r
System.IO.withFile
FilePath
logFile
IOMode
System.IO.AppendMode
( \Handle
handle -> do
FileStatus
fileStatus <- FilePath -> IO FileStatus
Files.getFileStatus FilePath
logFile
let fileMode :: FileMode
fileMode = FileStatus -> FileMode
Files.fileMode FileStatus
fileStatus
let fileAccessModes :: FileMode
fileAccessModes = FileMode -> FileMode -> FileMode
Files.intersectFileModes FileMode
fileMode FileMode
Files.accessModes
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
Control.Monad.unless (FileMode
fileAccessModes FileMode -> FileMode -> Bool
forall a. Eq a => a -> a -> Bool
== FileMode
Files.stdFileMode) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
<|
FilePath -> FileMode -> IO ()
Files.setFileMode FilePath
logFile FileMode
Files.stdFileMode
Handle -> ByteString -> IO ()
Data.ByteString.Lazy.hPut Handle
handle ((UTCTime, TracingSpan) -> ByteString
forall a. ToJSON a => a -> ByteString
Aeson.encode (UTCTime
now, TracingSpan
span))
Handle -> ByteString -> IO ()
Data.ByteString.Lazy.hPut Handle
handle ByteString
"\n"
)
{-# NOINLINE writeLock #-}
writeLock :: MVar.MVar ()
writeLock :: MVar ()
writeLock =
() -> IO (MVar ())
forall a. a -> IO (MVar a)
MVar.newMVar ()
IO (MVar ()) -> (IO (MVar ()) -> MVar ()) -> MVar ()
forall a b. a -> (a -> b) -> b
|> IO (MVar ()) -> MVar ()
forall a. IO a -> a
System.IO.Unsafe.unsafePerformIO