module EsonPrimitives

open System

type Creds =
  | OAuth2 of obj
  | Basic of string * string

type V1Connector = {
  uri: Uri
  creds: Creds
  }

type Oid = string
type Name = string
type Value = string

type AttrValue =
  | Val of Value
  | Date of Value
  | Rel of Oid
  | Rels of Oid list

type Attrs = (Name * AttrValue) list

let days = TimeSpan.FromDays

type Loader(conn:V1Connector) =

  let pushDbTimes s = failwith "Not Implemented"

  member this.find (typename:Name) (name:Name) : Oid =
    failwith "Not Implemented"

  member this.insertAs (who:Oid) (atype:Name) (attrs:Attrs) : Oid =
    failwith "Not Implemented"

  member this.updateAs (who:Oid) (oid:Oid) (attrs:Attrs) =
    failwith "Not Implemented"

  member this.advanceTime (span:System.TimeSpan) a =
    pushDbTimes span
    a