Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[fix] UserContext: remove some un-needed directive

  • Loading branch information...
commit c2e97a124a064a16b1e67f21dffbb60927c8b37f 1 parent 14c3e16
Hugo Heuzard authored
Showing with 1 addition and 2 deletions.
  1. +1 −2  stdlib/core/web/context/user_context.opa
View
3  stdlib/core/web/context/user_context.opa
@@ -181,12 +181,11 @@ UserContext =
*/
@server
execute(action : 'state -> 'b, context : UserContext.t('state)) : 'b =
- k(cont)= @with_thread_context(ThreadContext.get({from=cont}),
+ k(cont)=
f(state:'state) : ( -> void) =
return = action(state)
-> Continuation.return(cont, return)
(Cell.call(context, {exec=f}) |> Option.get(_))()
- )
@callcc(k)
Please sign in to comment.
Something went wrong with that request. Please try again.