[Haskell-cafe] Expressing disjunctions of constraints