From: sof <unknown>
Date: Fri, 25 Jun 1999 16:52:48 +0000 (+0000)
Subject: [project @ 1999-06-25 16:52:48 by sof]
X-Git-Tag: Approximately_9120_patches~6076
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dc1dbaa2ce7c8bd926f1c8a0cd69e6bc3847bfe2;p=ghc-hetmet.git

[project @ 1999-06-25 16:52:48 by sof]
Document the SocketPrim.PortNumber type
---

diff --git a/ghc/docs/users_guide/libmisc.vsgml b/ghc/docs/users_guide/libmisc.vsgml
index 87c6430..7a604a3 100644
--- a/ghc/docs/users_guide/libmisc.vsgml
+++ b/ghc/docs/users_guide/libmisc.vsgml
@@ -837,11 +837,17 @@ recvFrom	:: Hostname -> PortID -> IO String
 socketPort	:: Socket -> IO PortID
 
 data PortID	-- PortID is a non-abstract type
-  = Service String	-- Service Name eg "ftp"
-  | PortNumber Int	-- User defined Port Number
-  | UnixSocket String	-- Unix family socket in file system
+  = Service String	  -- Service Name eg "ftp"
+  | PortNumber PortNumber -- User defined Port Number
+  | UnixSocket String	  -- Unix family socket in file system
 
 type Hostname = String
+
+ -- 16-bit value (stored in network byte order).
+data PortNumber
+ -- instance of: Eq, Num, Show.
+
+mkPortNumber :: Int -> PortNumber
 </verb></tscreen>
 
 Various examples of networking Haskell code are provided in