[Haskell-cafe] Non-termination due to context