Derive Functor instance for SimResult

Author: coot

CHANGELOG.md

@@ -1,5 +1,9 @@
 # Change Log
 
+# Circa 2022.10.19 (pre release)
+
+- Added `Functor` instance for `SimResult` type
+
 # Circa 2022.10.03 (pre release)
 
 - Added `Semigroup` and `Monoid` instances for `STM` and `WrappedSTM` monads

io-sim/src/Control/Monad/IOSim/Types.hs

@@ -1,4 +1,5 @@
 {-# LANGUAGE CPP                        #-}
+{-# LANGUAGE DeriveFunctor              #-}
 {-# LANGUAGE DeriveGeneric              #-}
 {-# LANGUAGE DerivingStrategies         #-}
 {-# LANGUAGE DerivingVia                #-}
@@ -668,7 +669,7 @@ data SimResult a
     | MainException !Time SomeException ![Labelled ThreadId]
     | Deadlock      !Time               ![Labelled ThreadId]
     | Loop
-    deriving Show
+    deriving (Show, Functor)
 
 
 type SimTrace a = Trace.Trace (SimResult a) SimEvent