This commit is contained in:
Joey Hess 2016-12-01 00:41:01 -04:00
parent 94dad1e979
commit 3dce6a080e
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
4 changed files with 20 additions and 49 deletions

View file

@ -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