exporting packFamily and unpackFamily again. (haskell#324).

kazu-yamamoto · May 29, 2018 · 5dcc479 · 5dcc479
1 parent 819d35b
commit 5dcc479
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/Network/Socket.hs b/Network/Socket.hs
@@ -137,6 +137,8 @@ module Network.Socket
     -- ** Family
     , Family(..)
     , isSupportedFamily
+    , packFamily
+    , unpackFamily
     -- ** Protocol number
     , ProtocolNumber
     , defaultProtocol

diff --git a/Network/Socket/Types.hsc b/Network/Socket/Types.hsc
@@ -315,6 +315,7 @@ data Family
     | AF_CAN              -- ^ Controller Area Network
       deriving (Eq, Ord, Read, Show)
 
+-- | Converting 'Family' to 'CInt'.
 packFamily :: Family -> CInt
 packFamily f = case packFamily' f of
     Just fam -> fam
@@ -531,6 +532,7 @@ packFamily' f = case Just f of
 
 --------- ----------
 
+-- | Converting 'CInt' to 'Family'.
 unpackFamily :: CInt -> Family
 unpackFamily f = case f of
         (#const AF_UNSPEC) -> AF_UNSPEC