        then throwSocketError name
        else return r
 
-throwSocketErrorIfMinus1Retry_ :: (Eq a, Num a) => String -> IO a -> IO ()
-throwSocketErrorIfMinus1Retry_ name = void . throwSocketErrorIfMinus1Retry name
-
 throwSocketErrorIfNull :: String -> IO (Ptr a) -> IO (Ptr a)
 throwSocketErrorIfNull = throwSocketErrorIf (== nullPtr)
 

  , peekFromIntegral
  , peekRealToFrac
  , throwSocketErrorIf
  , throwSocketErrorIfMinus1Retry_
  , throwSocketErrorIfNull
  , throwSocketErrorIfNull_
  , unsafePeek

mapFst f (x, y) = (f x, y)

mapSnd :: (b1 -> b2) -> (a, b1) -> (a, b2)
mapSnd = fmap
