readVARIANT_BOOL :: Ptr Int16 -> IO Bool
readVARIANT_BOOL ptr = do
  x <- readInt16 ptr
  unmarshallVARIANT_BOOL x
readVARIANT_BOOL :: Ptr Int16 -> IO Bool
readVARIANT_BOOL ptr = do
  x <- readInt16 ptr
  unmarshallVARIANT_BOOL x
readVARIANT_BOOL ptr = do
  x <- readInt16 ptr
  unmarshallVARIANT_BOOL x