hunk ./Network/Generic.chs 38
-  withErrno $ {#call connect as _connect #} (fromIntegral . toFd $ sock) p (fromIntegral $ sizeOf addr)
+  withErrno $ {#call connect as _connect #} 
+                (fromIntegral . toFd $ sock) 
+                 p (fromIntegral $ sizeOf addr)
hunk ./Network/Generic.chs 42
+
hunk ./Network/Generic.chs 46
-  withErrno $ {#call bind as _bind#} (fromIntegral . toFd $ sock) p (fromIntegral $ sizeOf addr)
+  withErrno $ {#call bind as _bind#} 
+                (fromIntegral . toFd $ sock) 
+                 p (fromIntegral $ sizeOf addr)
hunk ./Network/Generic.chs 51
-listen :: (Socket s a p) => s -> Int -> Network ()
+listen :: (Socket s a p) => s -> p -> Network ()
hunk ./Network/Generic.chs 53
-  withErrno ({#call listen as _listen#} (fromIntegral . toFd $ sock) (toNetwork port))
+  withErrno ({#call listen as _listen#} (fromIntegral . toFd $ sock) (fromNetwork port))
hunk ./Network/Generic.chs 56
-listenOn :: (Socket s a p) => Int -> Network s
+listenOn :: (Socket s a p) => p -> Network s
hunk ./Network/Generic.chs 72
-  fd' <- withErrno $ {#call accept as _accept#} (fromIntegral . toFd $ sock) (castPtr p) psize
+  fd' <- withErrno $ {#call accept as _accept#} 
+         (fromIntegral . toFd $ sock) (castPtr p) psize