           -- Add UUID profiles
           profileList <- setFoldM nullPtr (sdpProfiles info)
               $ \profileList profile -> do
-              profileDesc <- mallocBytes {#sizeof sdp_profile_desc_t #}
-              sdpUUID16Create (c_sdp_profile_desc_get_uuid profileDesc) profile
-              {#set sdp_profile_desc_t.version #} profileDesc 0x0100 -- Magic number
-              sdpListAppend profileList profileDesc
+                  profileDesc <- mallocBytes {#sizeof sdp_profile_desc_t #}
+                  sdpUUID16Create (c_sdp_profile_desc_get_uuid profileDesc) profile
+                  {#set sdp_profile_desc_t.version #} profileDesc 0x0100 -- Magic number
+                  sdpListAppend profileList profileDesc
           
           throwErrnoIfNegative_ "sdp_set_profile_descs" $
             c_sdp_set_profile_descs record profileList

-------------------------------------------------------------------------------

type CUInt32       = {#type uint32_t #}
type SDPFreeFun    = Ptr () -> IO ()
type SDPFreeFunPtr = {#type sdp_free_func_t #}

withUUIDArray :: UUID -> (Ptr CUInt32 -> IO a) -> IO a

          -- Add UUID service classes
          svcClassList <- if (sdpRegisterUUIDAsServiceClass info)
            then do
                svcClassUuid <- mallocBytes uuidSize
                sdpUUID128Create svcClassUuid uuid
                sdpListAppend nullPtr svcClassUuid
            else return nullPtr
