+ DateOnly as Monoid and Zero for TimeOnly

fsprojects · Sep 16, 2023 · 41a935a · 41a935a
1 parent 1283d35
commit 41a935a
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/src/FSharpPlus/Control/Monoid.fs b/src/FSharpPlus/Control/Monoid.fs
@@ -26,6 +26,11 @@ type Plus =
     static member        ``+`` (x: array<_>          , y                    , [<Optional>]_mthd: Plus    ) = Array.append x y
     static member        ``+`` (()                   , ()                   , [<Optional>]_mthd: Plus    ) = ()
     static member        ``+`` (x: bool              , y: bool              , [<Optional>]_mthd: Plus    ) = x <> y
+
+    #if NET6_0_OR_GREATER
+    static member        ``+`` (x: DateOnly          , y: DateOnly          , [<Optional>]_mthd: Plus    ) = DateOnly.FromDayNumber (x.DayNumber + y.DayNumber)
+    #endif
+
     static member        ``+`` (x: Set<_>            , y                    , [<Optional>]_mthd: Plus    ) = Set.union x y
 
     #if !FABLE_COMPILER

diff --git a/src/FSharpPlus/Control/Numeric.fs b/src/FSharpPlus/Control/Numeric.fs
@@ -99,6 +99,10 @@ type FromInt32 =
     static member        FromInt32 (_: uint64    , _: FromInt32) = fun (x: int32) -> uint64          x
     static member        FromInt32 (_: float32   , _: FromInt32) = fun (x: int32) -> float32         x
     static member        FromInt32 (_: decimal   , _: FromInt32) = fun (x: int32) -> decimal         x
+
+    #if NET6_0_OR_GREATER
+    static member        FromInt32 (_: System.DateOnly  , _: FromInt32) = fun (x: int32) -> System.DateOnly.FromDayNumber x
+    #endif
 
     static member inline Invoke (x: int32) : 'Num =
         let inline call_2 (a: ^a, b: ^b) = ((^a or ^b) : (static member FromInt32 : _*_ -> _) b, a)
@@ -133,6 +137,8 @@ type Zero =
     inherit Default1
 
     static member        Zero (_: System.TimeSpan                , _: Zero    ) = System.TimeSpan ()
+    static member        Zero (_: System.DateOnly                , _: Zero    ) = System.DateOnly.MinValue
+    static member        Zero (_: System.TimeOnly                , _: Zero    ) = System.TimeOnly.MinValue
     static member        Zero (_: DmStruct                       , _: Zero    ) = Unchecked.defaultof<DmStruct>
     static member        Zero (_: list<'a>                       , _: Zero    ) = []   :   list<'a>
     static member        Zero (_: option<'a>                     , _: Zero    ) = None : option<'a>