getGLStrings :: IO String
getGLStrings = do
  numExt <- getNumExtensions
  (w, h) <- maxRenderSize
  printf
      ( "OpenGL - Vendor: %s · Renderer: %s · Version: %s · GLSL: %s · Num Extensions: %i" ++
        " · Max FB Res: %ix%i\nGLFW   - Version: %s"
      )
      <$> GL.get GL.vendor
      <*> GL.get GL.renderer
      <*> GL.get GL.glVersion
      <*> GL.get GL.shadingLanguageVersion
      <*> pure numExt
      <*> pure w
      <*> pure h
      <*> (fromJust <$> GLFW.getVersionString)

get
getGLStrings :: IO String
getGLStrings = do
  numExt <- getNumExtensions
  (w, h) <- maxRenderSize
  printf
      ( "OpenGL - Vendor: %s · Renderer: %s · Version: %s · GLSL: %s · Num Extensions: %i" ++
        " · Max FB Res: %ix%i\nGLFW   - Version: %s"
      )
      <$> GL.get GL.vendor
      <*> GL.get GL.renderer
      <*> GL.get GL.glVersion
      <*> GL.get GL.shadingLanguageVersion
      <*> pure numExt
      <*> pure w
      <*> pure h
      <*> (fromJust <$> GLFW.getVersionString)
getGLStrings = do
  numExt <- getNumExtensions
  (w, h) <- maxRenderSize
  printf
      ( "OpenGL - Vendor: %s · Renderer: %s · Version: %s · GLSL: %s · Num Extensions: %i" ++
        " · Max FB Res: %ix%i\nGLFW   - Version: %s"
      )
      <$> GL.get GL.vendor
      <*> GL.get GL.renderer
      <*> GL.get GL.glVersion
      <*> GL.get GL.shadingLanguageVersion
      <*> pure numExt
      <*> pure w
      <*> pure h
      <*> (fromJust <$> GLFW.getVersionString)