  dupChan_ = dupChan
  forkIO_ = forkIO

class MonadSecureClient m where
  runSecureClient_ :: HostName -> PortNumber -> String -> ClientApp a -> m a

instance MonadSecureClient IO where
  runSecureClient_ = runSecureClient