Fix g calculation in fromSample

IntersectMBO · Jul 1, 2020 · 44ed488 · 44ed488
1 parent 5138e24
commit 44ed488
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/ouroboros-network/src/Ouroboros/Network/DeltaQ.hs b/ouroboros-network/src/Ouroboros/Network/DeltaQ.hs
@@ -292,12 +292,13 @@ defaultGSV = PeerGSV { outboundGSV, inboundGSV }
 
     maxG :: DiffTime
     maxG = microsecondsAsIntToDiffTime maxBound / 4
+    --maxG = 500e-3 -- not unreasonable but old default value
 
 fromSample :: Time -> Time -> SizeInBytes -> PeerGSV
 fromSample (Time start) (Time end) _size =
     PeerGSV  { outboundGSV, inboundGSV }
   where
-    g =  (start - end) / 2
+    g =  (end - start) / 2
 
     inboundGSV = ballisticGSV g 2e-6 (degenerateDistribution 0)
     outboundGSV  = inboundGSV