activateDisplay :: GLUTContext a -> Display.Displayer a -> IO ()
activateDisplay c d = displayCallback $= Display.callback c d
activateDisplay :: GLUTContext a -> Display.Displayer a -> IO ()
activateDisplay c d = displayCallback $= Display.callback c d
activateDisplay c d = displayCallback $= Display.callback c d