 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' #}

                                                   focus
                                                  )
import Graphics.UI.FLTK.LowLevel.Dispatch
import System.IO.Unsafe (unsafePerformIO)
#c
 enum Option {
   ArrowFocus = OPTION_ARROW_FOCUS,

                    (fromIntegral r)
                    (fromIntegral g)
                    (fromIntegral b)
-- | In the function below marked `pure`, c2hs uses `unsafePerformIO` unqualified causing
-- | a compile error if it imported qualifed. This is a workaround.
unsafePerformIO :: IO a -> a
unsafePerformIO = Unsafe.unsafePerformIO
{# fun pure Fl_scheme as scheme
  {} -> `String' #}
setScheme :: String -> IO Int
