add enum in haskell