DotNetRGS: fix build with Mono

aarani · May 26, 2023 · 6588748 · 6588748
1 parent d5bd945
commit 6588748
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/DotNetRGS/GossipSnapshotter.fs b/DotNetRGS/GossipSnapshotter.fs
@@ -1166,7 +1166,7 @@ type GossipSnapshotter
                                 let timestamp =
                                     if factor <> Int32.MaxValue then
                                         referenceTimestamp.Subtract(
-                                            TimeSpan.FromDays factor
+                                            factor |> float |> TimeSpan.FromDays
                                         )
                                     else
                                         DateTime.MinValue

diff --git a/DotNetRGS/NetworkGraph.fs b/DotNetRGS/NetworkGraph.fs
@@ -312,10 +312,16 @@ type NetworkGraph(dataDir: DirectoryInfo) =
             |> Map.ofSeq
 
     member _.GetChannelIds() =
+        let keys(map: Map<'K, 'V>) =
+            seq {
+                for KeyValue(key, value) in map do
+                    yield key
+            }
+
         Monitor.Enter channelsLock
 
         try
-            channels.Keys |> Array.ofSeq
+            channels |> keys |> Array.ofSeq
         finally
             Monitor.Exit channelsLock