Yes, or better:
gshow' :: Data a => a -> String
gshow' t = fromMaybe (showConstr(toConstr t)) (cast t)
(which gets rid of the parentheses around numbers).
Still doesnt get a deserialize though ;-)
On 6/24/07, Andrea Vezzosi <[EMAIL PROTECTED]> wrote:
As a side note i'd like to point out that introspectData has a problem
with constructors containing Strings because show (x::String) /= x:
data Foo = Foo { bar :: String } deriving (Typeable,Data)
introspectData (Foo "quux") --> [("bar","\"quux\"")]
Those extras \" don't look very nice in the xml.. (the output of
introspectData is also wrong in the article's example )
you should probably use a modified gshow:
gshow' :: Data a => a -> String
gshow' x = fromMaybe (gshow x) (cast x)
which is id for Strings.
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe
