[Haskell-cafe] get Scale of window in HOpenGL?