Start generating parse methods (#4)

Co-authored-by: Smaug123 <patrick+github@patrickstevens.co.uk>
Reviewed-on: #4

PureGym.App/Sessions.fs

@@ -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 = Api.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