Nobody on this one?Here is a simplified version:data Event a where InputChoice :: a -> Event aHow to serialize/deserialize this?