data Tree' a = Leaf' a | Node' (Tree' a) (Tree' a) deriving Show
t1 :: Tree' Int
t1 = Node' (Leaf' 1) (Leaf' 2)
pPrint t1 produces Node' (Leaf' 1, with the colouring also messed up.
This is rather a shame, as using T' for a structure similar to T is a pretty common haskell idiom.
pPrint t1producesNode' (Leaf' 1, with the colouring also messed up.This is rather a shame, as using
T'for a structure similar toTis a pretty common haskell idiom.