Syntactically valid

No compile errors - but does it work...?
This commit is contained in:
Daniel J. Summers
2019-07-14 20:47:31 -05:00
parent cc5dd3bd7f
commit 7fb6bc463e
5 changed files with 181 additions and 118 deletions

View File

@@ -58,6 +58,13 @@ with
| "days" -> Days
| "weeks" -> Weeks
| _ -> invalidOp (sprintf "%s is not a valid recurrence" x)
/// The duration of the recurrence
member x.duration =
match x with
| Immediate -> 0L
| Hours -> 3600000L
| Days -> 86400000L
| Weeks -> 604800000L
/// History is a record of action taken on a prayer request, including updates to its text