cleanups
This commit is contained in:
parent
94dad1e979
commit
3dce6a080e
4 changed files with 20 additions and 49 deletions
|
@ -66,7 +66,7 @@ connectService address port service = do
|
|||
, runIhdl = h
|
||||
, runOhdl = h
|
||||
}
|
||||
runNetProtoHandle runenv $ do
|
||||
liftIO $ runNetProto runenv $ do
|
||||
v <- auth myuuid authtoken
|
||||
case v of
|
||||
Just _theiruuid -> connect service stdin stdout
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue