CAD-650 make pattern matches complete

Signed-off-by: Alexander Diemand <[email protected]>
IntersectMBO · Mar 10, 2020 · 581d52f · 581d52f
1 parent ed1f730
commit 581d52f
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/cardano-node/src/Cardano/Tracing/MicroBenchmarking.hs b/cardano-node/src/Cardano/Tracing/MicroBenchmarking.hs
@@ -180,6 +180,7 @@ instance (Monad m, MonadTime m) => Outcome m (TraceForgeEvent blk (GenTx blk)) w
     classifyObservable = pure . \case
       TraceNodeIsLeader {}    -> OutcomeStarts
       TraceForgedBlock  {}    -> OutcomeEnds
+      _                       -> OutcomeOther
 
     --captureObservableValue :: a -> m (IntermediateValue a)
     captureObservableValue (TraceNodeIsLeader slotNo) = do
@@ -190,6 +191,12 @@ instance (Monad m, MonadTime m) => Outcome m (TraceForgeEvent blk (GenTx blk)) w
         time <- getMonotonicTime
         pure (slotNo, time, mempoolSize)
 
+    -- will never be called, just to make the pattern match complete
+    captureObservableValue _ = do
+        time <- getMonotonicTime
+        pure (0, time, mempty)
+
+
     --computeOutcomeMetric   :: a -> IntermediateValue a -> IntermediateValue a -> m (OutcomeMetric a)
     computeOutcomeMetric _ (startSlot, absTimeStart, _) (stopSlot, absTimeStop, mempoolSize)
         | startSlot == stopSlot = pure $ Just (startSlot, (diffTime absTimeStop absTimeStart), mempoolSize)