[Haskell-cafe] transform function for a GADT