Learn You a Haskell 3 – Types and Typeclasses

I’m on the Making Our Own Types and Typeclasses chapter.

With prompting from the tutorial, knocked up the classic binary tree :