io-sim: enhanced TimeoutException Show instance

Author: coot

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

@@ -664,7 +664,7 @@ instance SI.MonadTimer (IOSim s) where
 newtype TimeoutException = TimeoutException TimeoutId deriving Eq
 
 instance Show TimeoutException where
-    show _ = "<<timeout>>"
+    show (TimeoutException tid) = "<<timeout " ++ show tid ++ " >>"
 
 instance Exception TimeoutException where
   toException   = asyncExceptionToException