-- | The 'TTransition' type show function.
instance Show TTransition where
  show (TDelay a _)      = "delay(" ++ show(a) ++ ")"
  show (TExec a _)       = "exec(" ++ show(a) ++ ")"
  show (TExit a _)       = "exit(" ++ show(a) ++ ")"
  show (TIf a _)         = "if(" ++ show(a) ++ ")"
  show (TIn a _)         = "in(" ++ show(a) ++ ")"
  show (TInAP a _ _)     = "in(" ++ show(a) ++ ")"
  show (TInPP a _ _)     = "in(" ++ show(a) ++ ")"
  show (TInF a _ _)      = "in(" ++ show(a) ++ ")"
  show (TJump a _)       = "jump(" ++ show(a) ++ ")"
  show (TLoop a _)       = "loop(" ++ show(a) ++ ")"
  show (TLoopEvery a _)  = "loop_every(" ++ show(a) ++ ")"
  show (TNull a _)       = "null(" ++ show(a) ++ ")"
  show (TOut a _)        = "out(" ++ show(a) ++ ")"
  show (TOutAP a _ _)    = "out(" ++ show(a) ++ ")"
  show (TOutPP a _ _)    = "out(" ++ show(a) ++ ")"
  show (TOutF a _ _)     = "out(" ++ show(a) ++ ")"
  show (TSelect a _)     = "select(" ++ show(a) ++ ")"
  show (TStart a _)      = "start(" ++ show(a) ++ ")"
  show (STInAP a _ _)    = "wakeup(" ++ show(a) ++ ")"
  show (STInPP a _ _)    = "wakeup(" ++ show(a) ++ ")"
  show (STOutAP a _ _)   = "wakeup(" ++ show(a) ++ ")"
  show (STOutPP a _ _)   = "wakeup(" ++ show(a) ++ ")"
  show (STDelayEnd a _)  = "timeout(" ++ show(a) ++ ")"
  show (STLoopEnd a _)   = "timeout(" ++ show(a) ++ ")"
  show (STInEnd a _)     = "timeout(" ++ show(a) ++ ")"
  show (STOutEnd a _)    = "timeout(" ++ show(a) ++ ")"
  
  ----------------------------------------------------------------------
  
  