Fix test with haskell-gadt