[Haskell-cafe] Creating an instance of the Show Typeclass for a datatype