Use updated WoofWare plugins
This commit is contained in:
@@ -17,8 +17,8 @@ type SessionsArgsFragment =
|
||||
type SessionsArgs =
|
||||
{
|
||||
Creds : Auth
|
||||
FromDate : DateTime
|
||||
ToDate : DateTime
|
||||
FromDate : DateOnly
|
||||
ToDate : DateOnly
|
||||
}
|
||||
|
||||
static member Parse
|
||||
@@ -31,8 +31,8 @@ type SessionsArgs =
|
||||
|
||||
{
|
||||
Creds = auth
|
||||
FromDate = DateTime.Parse fromDate
|
||||
ToDate = DateTime.Parse toDate
|
||||
FromDate = DateOnly.Parse fromDate
|
||||
ToDate = DateOnly.Parse toDate
|
||||
}
|
||||
|> Ok
|
||||
|
||||
@@ -42,7 +42,7 @@ module Sessions =
|
||||
let run (args : SessionsArgs) =
|
||||
task {
|
||||
let! client = Dto.make args.Creds
|
||||
let! activity = client.GetSessions args.FromDate args.ToDate
|
||||
let! activity = client.GetSessions (args.FromDate, args.ToDate)
|
||||
|
||||
System.Console.WriteLine (string<Sessions> activity)
|
||||
return 0
|
||||
|
Reference in New Issue
Block a user