[Haskell-cafe] getMessage function in Win32 API