Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement