akkaLogging.fs1

open Serilog

open Akka
open Akka.FSharp
open Akka.Actor
open Akka.Configuration

open FsSql

open Akka.Logger.Serilog

open Serilog.Configuration


let logger = 
    (new LoggerConfiguration())
        .WriteTo
        .ColoredConsole()
        .MinimumLevel.Debug()
            .CreateLogger()


Log.Logger <- logger

logger.Debug("test")

let config = """
akka {
    loglevel=DEBUG
    stdout-loglevel = DEBUG
    loggers = ["Akka.Logger.Serilog.SerilogLogger, Akka.Logger.Serilog"]
    actor {
        loggers = ["Akka.Logger.Serilog.SerilogLogger, Akka.Logger.Serilog"]
        logLevel="DEBUG"
        debug {
                  receive = on
                  autoreceive = on
                  lifecycle = on
                  event-stream = on
                  unhandled = on
              }
    }
}
"""

let system = ConfigurationFactory.ParseString config |> System.create "FSharpActors"

spawn system "log-tester" 
    ( fun (mailbox:Actor<int>) ->
        let rec loop() = actor {
            mailbox.Context.System.Log.Debug("Debug")
            mailbox.Log.Value.Debug("Debug mailbox.log")
            mailbox.Log.Value.Info("Info mailbox.log")

            let! msg = mailbox.Receive()

            return! loop()
        }
        loop()
        
    )  
|> ignore