deprecating internal functions.

Author: kazu-yamamoto

Network/BSD.hsc

@@ -1,5 +1,6 @@
 {-# LANGUAGE CPP, ForeignFunctionInterface #-}
 {-# OPTIONS_HADDOCK hide #-}
+{-# OPTIONS_GHC -fno-warn-warnings-deprecations #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Network.BSD

Network/Socket.hsc

@@ -223,7 +223,7 @@ module Network.Socket
 #ifdef SCM_RIGHTS
     , sCM_RIGHTS
 #endif
-    -- * Internal - don't use this
+    -- ** Decrecated internal functions
     , packFamily
     , unpackFamily
     , packSocketType

Network/Socket/Types.hsc

@@ -193,6 +193,8 @@ packSocketType' stype = case Just stype of
 #endif
     _ -> Nothing
 
+{-# DEPRECATED packSocketType "Don't use this" #-}
+
 packSocketType :: SocketType -> CInt
 packSocketType stype = fromMaybe (error errMsg) (packSocketType' stype)
   where
@@ -312,6 +314,8 @@ data Family
     | AF_CAN              -- Controller Area Network
       deriving (Eq, Ord, Read, Show)
 
+{-# DEPRECATED packFamily "Don't use this" #-}
+
 packFamily :: Family -> CInt
 packFamily f = case packFamily' f of
     Just fam -> fam
@@ -528,6 +532,8 @@ packFamily' f = case Just f of
 
 --------- ----------
 
+{-# DEPRECATED unpackFamily "Don't use this" #-}
+
 unpackFamily :: CInt -> Family
 unpackFamily f = case f of
         (#const AF_UNSPEC) -> AF_UNSPEC