gnu: rust-gl: Add 0.14.

* gnu/packages/crates-graphics.scm (rust-gl-0.14): New variable.
(rust-gl-0.11): Inherit.

gnu/packages/crates-graphics.scm

@@ -795,8 +795,31 @@ EUI-64, also known as MAC-48 media access control addresses.")
        #:cargo-development-inputs
        (("rust-glob" ,rust-glob-0.3))))))
 
+(define-public rust-gl-0.14
+  (package
+    (name "rust-gl")
+    (version "0.14.0")
+    (source (origin
+              (method url-fetch)
+              (uri (crate-uri "gl" version))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "015lgy3qpzdw7mnh59a4y4hdjq1fhv7nkqlmh1h6fzc212qxlkm9"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:cargo-development-inputs
+       (("rust-glutin" ,rust-glutin-0.21))
+       #:cargo-inputs
+       (("rust-gl-generator" ,rust-gl-generator-0.14))))
+    (home-page "https://github.com/brendanzab/gl-rs/")
+    (synopsis "OpenGL bindings for rust")
+    (description "This package provides OpenGL bindings for rust.")
+    (license license:asl2.0)))
+
 (define-public rust-gl-0.11
   (package
+    (inherit rust-gl-0.14)
     (name "rust-gl")
     (version "0.11.0")
     (source
@@ -808,15 +831,10 @@ EUI-64, also known as MAC-48 media access control addresses.")
         (sha256
          (base32
           "1wcqpyhck0xriffkmgmldy33lwk2044hb4l02d44vm4fbvicin6p"))))
-    (build-system cargo-build-system)
     (arguments
      `(#:skip-build? #t
        #:cargo-inputs
-       (("rust-gl-generator" ,rust-gl-generator-0.10))))
+       (("rust-gl-generator" ,rust-gl-generator-0.10))))))
-    (home-page "https://github.com/brendanzab/gl-rs/")
-    (synopsis "OpenGL bindings for rust")
-    (description "This package provides OpenGL bindings for rust.")
-    (license license:asl2.0)))
 
 (define-public rust-gl-generator-0.14
   (package