From dc1dbaa2ce7c8bd926f1c8a0cd69e6bc3847bfe2 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 25 Jun 1999 16:52:48 +0000
Subject: [PATCH] [project @ 1999-06-25 16:52:48 by sof] Document the
 SocketPrim.PortNumber type

---
 ghc/docs/users_guide/libmisc.vsgml | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/ghc/docs/users_guide/libmisc.vsgml b/ghc/docs/users_guide/libmisc.vsgml
index 87c64300890e..7a604a33ac4d 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
-- 
GitLab