-- send and recv timeout (sum)

setHost :: String -> Settings -> Settings
setHost v s = s { sHost = v }
setHost :: String -> Settings -> Settings
setHost v s = s { sHost = v }
setHost v s = s { sHost = v }