#r "./packages/RethinkDb.Driver.2.3.19/lib/net45/RethinkDb.Driver.dll"

open System
open RethinkDb.Driver
open RethinkDb.Driver.Ast
open RethinkDb.Driver.Net

// connecting across network to RethinkDB running on Mac with
// rethinkdb --bind all
let r = RethinkDb.Driver.RethinkDB.R;
let conn = r.Connection().Hostname("192.168.1.6").Port(28015).Timeout(60).Connect()
let pNum = conn.Port
let hName = conn.Hostname

(* the above provides results below in FSI, so all good so far...
--> Referenced 'F:\Dropbox\_src\_common\fsharp\rethinkdb\test1\./packages/RethinkDb.Driver.2.3.19/lib/net45/RethinkDb.Driver.dll'

Binding session to 'C:\Program Files\Microsoft SDKs\Azure\.NET SDK\v2.9\bin\plugins\Diagnostics\Newtonsoft.Json.dll'...
val r : RethinkDb.Driver.RethinkDB
val conn : RethinkDb.Driver.Net.Connection
val pNum : int = 28015
val hName : string = "192.168.1.6"

*)

// TODO: below results in table creation, but but logging failure:
let tableCreateRes = r.Db("test").TableCreate("authors").Run(conn)

(*
>
System.IO.FileNotFoundException: Could not load file or assembly 'Common.Logging.Core, Version=3.3.0.0, Culture=neutral, PublicKeyToken=af08829b84f0328e' or one of its dependencies. The system cannot find the file specified.
File name: 'Common.Logging.Core, Version=3.3.0.0, Culture=neutral, PublicKeyToken=af08829b84f0328e'
   at RethinkDb.Driver.Log.Trace(String msg)
   at RethinkDb.Driver.Net.SocketWrapper.SendQuery(Int64 token, String json, Boolean awaitResponse, CancellationToken cancelToken)
   at RethinkDb.Driver.Net.Connection.SendQuery(Query query, CancellationToken cancelToken, Boolean awaitResponse)
   at RethinkDb.Driver.Net.Connection.<RunQueryAsync>d__51`1.MoveNext()
--- End of stack trace from previous location where exception was thrown ---
   at System.Runtime.ExceptionServices.ExceptionDispatchInfo.Throw()
   at RethinkDb.Driver.Utils.TaskHelper.WaitSync[T](Task`1 task)
   at RethinkDb.Driver.Ast.ReqlAst.Run[T](IConnection conn, Object runOpts)
   at <StartupCode$FSI_0003>.$FSI_0003.main@() in F:\Dropbox\_src\_common\fsharp\rethinkdb\test1\Script.fsx:line 30

WRN: Assembly binding logging is turned OFF.
To enable assembly bind failure logging, set the registry value [HKLM\Software\Microsoft\Fusion!EnableLog] (DWORD) to 1.
Note: There is some performance penalty associated with assembly bind failure logging.
To turn this feature off, remove the registry value [HKLM\Software\Microsoft\Fusion!EnableLog].

Stopped due to error
>


*)
// let now = r.Now().Run(conn)
// let dbList = r.DbList().Run(conn)
// let info = r.Db("test").Table("ticks").Info().Run(conn)