Merge PR #227.

haskell · Dec 15, 2017 · 42aa180 · 42aa180
2 parents 0452df5 + 9bec29e
commit 42aa180
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Network/Socket.hsc b/Network/Socket.hsc
@@ -352,7 +352,7 @@ socket family stype protocol = do
     -- so trying to change it might throw an error.
     when (family == AF_INET6 && (stype == Stream || stype == Datagram)) $
       E.catch (setSocketOption sock IPv6Only 0) $ (\(_ :: E.IOException) -> return ())
-# else
+# elif !defined(__OpenBSD__)
     when (family == AF_INET6 && (stype == Stream || stype == Datagram)) $
       setSocketOption sock IPv6Only 0 `onException` close sock
 # endif