 
 {#fun unsafe sdp_data_free as c_sdp_data_free { `SDPDataPtr' } -> `()' #}
 
-{#fun unsafe sdp_list_free as c_sdp_list_free
+{#fun sdp_list_free as c_sdp_list_free
   {    `SDPListPtr'
   , id `SDPFreeFunPtr'
   } -> `()' #}

                      in withArray $ map (fromIntegral . byteSwap32) [w1,w2,w3,w4]

{#enum define SDPDataRep {
    SDP_UINT8  as SDPCUInt8
  , SDP_UINT16 as SDPCUInt16
  } deriving (Ix, Show, Eq, Read, Ord, Bounded) #}

{#enum define SDPConnectFlag {

      allocaBytes uuidSize                 $ \l2capUuid    ->
      allocaBytes uuidSize                 $ \rfcommUuid   ->
      allocaBytes uuidSize                 $ \svcUuid      ->
      allocaBytes {#sizeof sdp_record_t #} $ \record       -> do
          -- Convert the UUID to a uuid_t
          sdpUUID128Create svcUuid uuid
