maybe fix test for ghc 7

Author: infinity0

Network/Socket/Info.hsc

@@ -511,7 +511,7 @@ sockNameToAddr name = case name of
 -- | Shortcut for creating a socket from a socket name.
 --
 -- >>> import Network.Socket
--- >>> Right sn = readSockName 0 "0.0.0.0:0"
+-- >>> let Right sn = readSockName 0 "0.0.0.0:0"
 -- >>> (s, a) <- socketFromName sn head Stream defaultProtocol
 -- >>> bind s a
 socketFromName