fix setting protocol version for v0 server
Before it was leaving the protocol version at the default, when it was actually v0. v0 has only ever been used over tor, which is probably why this bug was never noticed.
This commit is contained in:
parent
576ec6ed71
commit
de7730f51f
1 changed files with 1 additions and 1 deletions
|
@ -377,7 +377,7 @@ negotiateProtocolVersion preferredversion = do
|
||||||
case r of
|
case r of
|
||||||
Just (VERSION v) -> net $ setProtocolVersion v
|
Just (VERSION v) -> net $ setProtocolVersion v
|
||||||
-- Old server doesn't know about the VERSION command.
|
-- Old server doesn't know about the VERSION command.
|
||||||
Just (ERROR _) -> return ()
|
Just (ERROR _) -> net $ setProtocolVersion 0
|
||||||
_ -> net $ sendMessage (ERROR "expected VERSION")
|
_ -> net $ sendMessage (ERROR "expected VERSION")
|
||||||
|
|
||||||
sendBypass :: Bypass -> Proto ()
|
sendBypass :: Bypass -> Proto ()
|
||||||
|
|
Loading…
Add table
Reference in a new issue