Better semantics for MemberActivity

PureGym.App/MemberActivity.fs

@@ -33,6 +33,7 @@ module MemberActivity =
         task {
             let! client = Api.make args.Creds
             let! activity = client.GetMemberActivity ()
-            System.Console.WriteLine (string<MemberActivity> activity)
+            let activity = activity.ToMemberActivity ()
+            System.Console.WriteLine (string<MemberActivityThisMonth> activity)
             return 0
         }