A Qt binding generator for Haskell based on Smoke