marshallVARIANT_BOOL :: Bool -> IO Int16
marshallVARIANT_BOOL True  = return minBound
marshallVARIANT_BOOL :: Bool -> IO Int16
marshallVARIANT_BOOL True  = return minBound
marshallVARIANT_BOOL True  = return minBound