activateInput :: GLUTContext a -> IO ()
activateInput c = keyboardMouseCallback $= c ^. inputRef . to Input.callback. to Just
activateInput :: GLUTContext a -> IO ()
activateInput c = keyboardMouseCallback $= c ^. inputRef . to Input.callback. to Just
activateInput c = keyboardMouseCallback $= c ^. inputRef . to Input.callback. to Just