*** SocketPrim.hsc	2001/10/15 16:29:37	1.15
--- SocketPrim.hsc	2001/11/13 11:24:41	1.16
***************
*** 1,5 ****
  -----------------------------------------------------------------------------
! -- $Id: SocketPrim.hsc,v 1.15 2001/10/15 16:29:37 simonmar Exp $
  --
  -- (c) The GRASP/AQUA Project, Glasgow University, 1995-1998,
  --     The GHC Team 1999-2001
--- 1,5 ----
  -----------------------------------------------------------------------------
! -- $Id: SocketPrim.hsc,v 1.16 2001/11/13 11:24:41 simonmar Exp $
  --
  -- (c) The GRASP/AQUA Project, Glasgow University, 1995-1998,
  --     The GHC Team 1999-2001
***************
*** 660,666 ****
  		-> IO Int	 -- Option Value
  getSocketOption (MkSocket s _ _ _ _) so = do
     alloca $ \ptr_v ->
!      withObject 1 $ \ptr_sz -> do
         throwErrnoIfMinus1 "getSocketOption" $
  	 c_getsockopt s (socketOptLevel so) (packSocketOption so) ptr_v ptr_sz
         fromIntegral `liftM` peek ptr_v
--- 660,666 ----
  		-> IO Int	 -- Option Value
  getSocketOption (MkSocket s _ _ _ _) so = do
     alloca $ \ptr_v ->
!      withObject (fromIntegral (sizeOf (undefined :: CInt))) $ \ptr_sz -> do
         throwErrnoIfMinus1 "getSocketOption" $
  	 c_getsockopt s (socketOptLevel so) (packSocketOption so) ptr_v ptr_sz
         fromIntegral `liftM` peek ptr_v