meoutSTM :: Microseconds -> STM (Maybe a) -> IO a
timeoutSTM μs action = gTimeoutSTM μs action (makeServantErr TransactionTimeout)

timeoutSTM :: Microseconds -> STM (Maybe a) -> IO a
timeoutSTM μs action = gTimeoutSTM μs action (makeServantErr TransactionTimeout)
timeoutSTM μs action = gTimeoutSTM μs action (makeServantErr TransactionTimeout)