play with -XEmptyCase in haskell