 option o = {#call Fl_option as fl_option #} (cFromEnum o) >>= return . fromIntegral
 
 unsafeToCallbackPrim :: GlobalCallback -> FunPtr CallbackPrim
-unsafeToCallbackPrim = unsafePerformIO . toGlobalCallbackPrim
+unsafeToCallbackPrim = (Unsafe.unsafePerformIO) . toGlobalCallbackPrim
 
 {# fun Fl_add_awake_handler_ as addAwakeHandler'
   {id `FunPtr CallbackPrim', id `(Ptr ())'} -> `Int' #}

                    (fromIntegral r)
                    (fromIntegral g)
                    (fromIntegral b)
{# fun pure Fl_scheme as scheme
  {} -> `String' #}
setScheme :: String -> IO Int

{#enum Option {} deriving (Show) #}

ptrToGlobalEventHandler :: IORef (FunPtr GlobalEventHandlerPrim)
ptrToGlobalEventHandler = Unsafe.unsafePerformIO $ do
                            initialHandler <- toGlobalEventHandlerPrim (\_ -> return (-1))
                            newIORef initialHandler

