Suave 1.x NLog adapter

let log = Log.logger "WebService"

let logger = 
    let convertLevel = function
        | Logging.LogLevel.Debug -> LogLevel.Debug
        | Logging.LogLevel.Verbose -> LogLevel.Trace
        | Logging.LogLevel.Info -> LogLevel.Info
        | Logging.LogLevel.Warn -> LogLevel.Warn
        | Logging.LogLevel.Error -> LogLevel.Error
        | Logging.LogLevel.Fatal -> LogLevel.Fatal
    let log = LogManager.GetLogger("WebService")
    let culture = Globalization.CultureInfo.InvariantCulture
    { new Logging.Logger with
          member __.Log(level: Logging.LogLevel) (msg: unit -> Logging.LogLine): unit = 
                let lvl = convertLevel level
                if log.IsEnabled lvl then
                    let line = msg()
                    match line.``exception`` with
                    | None -> log.Log(LogEventInfo(lvl, line.path, culture, line.message, null))
                    | Some ex-> log.Log(LogEventInfo(lvl, line.path, culture, line.message, null, ex)) }