[Haskell-cafe] Type-class conditional behavior