deprecating internal functions.

haskell · Feb 28, 2018 · 2156c61 · 2156c61
1 parent 6f64d3e
commit 2156c61
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 1 deletion.
diff --git a/Network/BSD.hsc b/Network/BSD.hsc
@@ -1,5 +1,6 @@
 {-# LANGUAGE CPP, ForeignFunctionInterface #-}
 {-# OPTIONS_HADDOCK hide #-}
+{-# OPTIONS_GHC -fno-warn-warnings-deprecations #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Network.BSD

diff --git a/Network/Socket.hsc b/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

diff --git a/Network/Socket/Types.hsc b/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