io-sim: improved TimeoutException Show instance

input-output-hk · Apr 13, 2023 · a1656ff · a1656ff
1 parent 89b762f
commit a1656ff
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/io-sim/src/Control/Monad/IOSim/Types.hs b/io-sim/src/Control/Monad/IOSim/Types.hs
@@ -607,7 +607,7 @@ unregisterTimeout tmid = IOSim $ oneShot $ \k -> UnregisterTimeout tmid (k ())
 newtype TimeoutException = TimeoutException TimeoutId deriving Eq
 
 instance Show TimeoutException where
-    show _ = "<<timeout>>"
+    show (TimeoutException tmid) = "<<timeout " ++ show tmid ++ " >>"
 
 instance Exception TimeoutException where
   toException   = asyncExceptionToException