On 03/13/2012 10:33 PM, Johan Tibell wrote:
value = Bin 1 (Bin 2 Leaf Leaf) (Bin 3 Leaf Leaf)
I'm usually using the following snippet which is a tweak of the gshow function
from syb.
However everything need to be a member of Data/Typeable, and also list are not
particularly well handled with this.
gshowHier :: Data a => Int -> a -> String
gshowHier il a = intercalate "\n" (constr : gmapQ (gshowHier (il+2)) a)
where constr = replicate il ' ' ++ (showConstr $ toConstr a)
--
Vincent
_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe
