- let title = if is_whitespace title then `Null else `String title in
- let longdesc = if is_whitespace longdesc then `Null else `String longdesc in
- let clazz = if is_whitespace clazz then `Null else `String clazz in
+ let title = if string_is_whitespace title then `Null else `String title in
+ let longdesc =
+ if string_is_whitespace longdesc then `Null else `String longdesc in
+ let clazz = if string_is_whitespace clazz then `Null else `String clazz in