Hooked up a remote terminal, it runs but doesn't work yet.
@@ -68,6 +68,7 @@ data Cmd
= CmdNew New Opts
| CmdRun Run Opts
| CmdBug Bug
+ | CmdCon Word16
deriving (Show)
--------------------------------------------------------------------------------
@@ -270,6 +271,13 @@ bugCmd = fmap CmdBug
$ progDesc "Parse all data in event log"
)
+conCmd :: Parser Cmd
+conCmd = do
+ port <- argument auto ( metavar "PORT"
+ <> help "Port of terminal server"
+ )
+ pure (CmdCon port)
+
allFx :: Parser Bug
allFx = do
bPierPath <- strArgument (metavar "PIER" <> help "Path to pier")
@@ -286,3 +294,6 @@ cmd = subparser
<> command "bug" ( info (bugCmd <**> helper)
$ progDesc "Run a debugging sub-command."
)
+ <> command "con" ( info (conCmd <**> helper)
+ $ progDesc "Connect a terminal to a running urbit."
+ )
