Don't override addrProtocol

bgamari · bgamari · commit 3c4c90015326 · 2021-12-10T14:28:26.000-05:00
diff --git a/src/IServ/Remote/Interpreter.hs b/src/IServ/Remote/Interpreter.hs
@@ -63,8 +63,7 @@ startInterpreter' verbose base_path port = do
 
   let addrInfo = defaultHints {
           addrFamily = AF_INET,
-          addrSocketType = Stream,
-          addrProtocol = -1
+          addrSocketType = Stream
         }
   sock <- openSocket addrInfo
   setSocketOption sock ReuseAddr 1

Original file line number	Diff line number	Diff line change
`@@ -63,8 +63,7 @@ startInterpreter' verbose base_path port = do`
`63`	`63`
`64`	`64`	`let addrInfo = defaultHints {`
`65`	`65`	`addrFamily = AF_INET,`
`66`		`- addrSocketType = Stream,`
`67`		`- addrProtocol = -1`
	`66`	`+ addrSocketType = Stream`
`68`	`67`	`}`
`69`	`68`	`sock <- openSocket addrInfo`
`70`	`69`	`setSocketOption sock ReuseAddr 1`