[Haskell-cafe] howto c2hs marshall in out argument by reference

The function takes a pointer to an integer, prints its value and returns the increment. void cl_inc(int *i){ printf("changing int from %d to %d", *i, (++i)); } I've managed it by using this code: {#fun pure cl_inc {alloca `CInt' peek*} -> `()'#} -} and calling it this way: alloca $ \mem -> do poke mem 3; print_int_ptr_value mem then its a matter of reading mem by using peak again. Is there a better way letting {#func do the marshalling to be able to do directly? print $ cl_inc 3 4 Marc