module EnableGUI(enableGUI) where

import Data.Int
import Foreign

type ProcessSerialNumber = Int64


enableGUI = alloca $ \psn -> do
    getCurrentProcess psn
    cgsDefaultConnection
    cpsEnableForegroundOperation psn
    cpsSignalAppReady psn
    cpsSetFrontProcess psn

