@@ -153,7 +153,7 @@ IO : Type -> Type
153IO = IO' FFI_C
153IO = IO' FFI_C
155run__provider : IO' l a -> PrimIO a
155run__provider : IO' l a -> PrimIO a
156−run__provider = call__IO
156+run__provider (MkIO f) = f (TheWorld prim__TheWorld)
158prim_fork : PrimIO () -> PrimIO Ptr
158prim_fork : PrimIO () -> PrimIO Ptr
159prim_fork x = prim_io_return prim__vm -- compiled specially
159prim_fork x = prim_io_return prim__vm -- compiled specially