Fix InvocationKind contract warnings

IntelliJ has started warning about these in K2 mode.

Closes #106

Author: Daiji256

kotlin-result-coroutines/src/commonMain/kotlin/com/github/michaelbull/result/coroutines/CoroutineBinding.kt

@@ -41,7 +41,7 @@ import kotlin.contracts.contract
  */
 public suspend inline fun <V, E> coroutineBinding(crossinline block: suspend CoroutineBindingScope<E>.() -> V): Result<V, E> {
     contract {
-        callsInPlace(block, InvocationKind.EXACTLY_ONCE)
+        callsInPlace(block, InvocationKind.AT_MOST_ONCE)
     }
 
     lateinit var receiver: CoroutineBindingScopeImpl<E>

kotlin-result-coroutines/src/commonMain/kotlin/com/github/michaelbull/result/coroutines/RunSuspendCatching.kt

@@ -16,7 +16,7 @@ import kotlin.contracts.contract
  */
 public inline fun <V> runSuspendCatching(block: () -> V): Result<V, Throwable> {
     contract {
-        callsInPlace(block, InvocationKind.EXACTLY_ONCE)
+        callsInPlace(block, InvocationKind.AT_MOST_ONCE)
     }
 
     return runCatching(block).throwIf {
@@ -33,7 +33,7 @@ public inline fun <V> runSuspendCatching(block: () -> V): Result<V, Throwable> {
  */
 public inline infix fun <T, V> T.runSuspendCatching(block: T.() -> V): Result<V, Throwable> {
     contract {
-        callsInPlace(block, InvocationKind.EXACTLY_ONCE)
+        callsInPlace(block, InvocationKind.AT_MOST_ONCE)
     }
 
     return runCatching(block).throwIf {

kotlin-result/src/commonMain/kotlin/com/github/michaelbull/result/Binding.kt

@@ -27,7 +27,7 @@ import kotlin.contracts.contract
  */
 public inline fun <V, E> binding(crossinline block: BindingScope<E>.() -> V): Result<V, E> {
     contract {
-        callsInPlace(block, InvocationKind.EXACTLY_ONCE)
+        callsInPlace(block, InvocationKind.AT_MOST_ONCE)
     }
 
     return with(BindingScopeImpl<E>()) {

kotlin-result/src/commonMain/kotlin/com/github/michaelbull/result/Factory.kt

@@ -10,7 +10,7 @@ import kotlin.contracts.contract
  */
 public inline fun <V> runCatching(block: () -> V): Result<V, Throwable> {
     contract {
-        callsInPlace(block, InvocationKind.EXACTLY_ONCE)
+        callsInPlace(block, InvocationKind.AT_MOST_ONCE)
     }
 
     return try {
@@ -27,7 +27,7 @@ public inline fun <V> runCatching(block: () -> V): Result<V, Throwable> {
  */
 public inline infix fun <T, V> T.runCatching(block: T.() -> V): Result<V, Throwable> {
     contract {
-        callsInPlace(block, InvocationKind.EXACTLY_ONCE)
+        callsInPlace(block, InvocationKind.AT_MOST_ONCE)
     }
 
     return try {