[Haskell-cafe] How to express constraint succeeded?