Tweak pause camera movement

src/Preload/Render.hs

@@ -32,25 +32,6 @@ preloadRender = do
     putStrLn "Number cores available:"
     getNumCapabilities >>= print
 
-    forM_ [0, 1, 2] $ \i -> do
-        putStrLn $ "GL_MAX_COMPUTE_WORK_GROUP_COUNT " ++ show i
-        alloca $ \ptr -> do
-            glGetIntegeri_v GL_MAX_COMPUTE_WORK_GROUP_COUNT i ptr
-            x <- peek ptr
-            putStrLn $ show x
-
-    forM_ [0, 1, 2] $ \i -> do
-        putStrLn $ "GL_MAX_COMPUTE_WORK_GROUP_SIZE " ++ show i
-        alloca $ \ptr -> do
-            glGetIntegeri_v GL_MAX_COMPUTE_WORK_GROUP_SIZE i ptr
-            x <- peek ptr
-            putStrLn $ show x
-    putStrLn $ "GL_MAX_COMPUTE_WORK_GROUP_INVOCATIONS"
-    alloca $ \ptr -> do
-        glGetIntegerv GL_MAX_COMPUTE_WORK_GROUP_INVOCATIONS ptr
-        x <- peek ptr
-        putStrLn $ show x
-
     -- set up uniform buffer object
     putStrLn "Setup UBO"
     theUBO <- mglCreate glCreateBuffers