[Haskell-cafe] where is the FFI glue code for STM?

Hello, I see where the top level code (written in Haskell)for STM. I have found STM.c;however, I can't seem to find the FFI glue code.? Thanks, Vasili