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

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

mapSnd :: (b1 -> b2) -> (a, b1) -> (a, b2)
mapSnd = fmap
       then throwSocketError name
       else return r

throwSocketErrorIfNull :: String -> IO (Ptr a) -> IO (Ptr a)
throwSocketErrorIfNull = throwSocketErrorIf (== nullPtr)

