From 2156c618b600e82e63fbb94111d903dc1cc78652 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Mon, 29 Jan 2018 14:29:18 +0900
Subject: [PATCH] deprecating internal functions.

---
 Network/BSD.hsc          | 1 +
 Network/Socket.hsc       | 2 +-
 Network/Socket/Types.hsc | 6 ++++++
 3 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/Network/BSD.hsc b/Network/BSD.hsc
index 81b58473..91a310bc 100644
--- 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
index 5f5b05ab..0819a054 100644
--- 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
index 78d20a70..5c709272 100644
--- 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