[Haskell-cafe] Generating Haskell From a XSD

I would like to generate Haskell data types and xml serialization code from xsd. I know of DtdToHaskell but unfortunately I yet to be able to generate a valid dtd from my xsd. Is there a way to generate Haskell from a xsd? -Jonathan