File tree Expand file tree Collapse file tree
techstack-enforcer/src/abi Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -189,7 +189,7 @@ prim__registerCallback : Bits64 -> AnyPtr -> PrimIO Bits32
189189export
190190registerCallback : Handle -> Callback -> IO (Either Result () )
191191registerCallback h cb = do
192- result <- primIO (prim__registerCallback (handlePtr h) (believe_me cb))
192+ result <- primIO (prim__registerCallback (handlePtr h) (cast cb))
193193 pure $ case resultFromInt result of
194194 Just Ok => Right ()
195195 Just err => Left err
Original file line number Diff line number Diff line change @@ -189,7 +189,7 @@ prim__registerCallback : Bits64 -> AnyPtr -> PrimIO Bits32
189189export
190190registerCallback : Handle -> Callback -> IO (Either Result () )
191191registerCallback h cb = do
192- result <- primIO (prim__registerCallback (handlePtr h) (believe_me cb))
192+ result <- primIO (prim__registerCallback (handlePtr h) (cast cb))
193193 pure $ case resultFromInt result of
194194 Just Ok => Right ()
195195 Just err => Left err
You can’t perform that action at this time.
0 commit comments