Include guile-json for scm->json

guix.scm

@@ -1,20 +1,29 @@
-(use-modules (gnu packages guile)
+(use-modules (guix packages)
-	     (gnu packages pkg-config)
+	     (guix gexp)
-	     (guix)
+	     (guix build-system guile)
+	     (gnu packages)
+	     (gnu packages guile)
+	     (gnu packages tls)
 	     (guix git-download)
-	     (guix build-system guile))
+	     (guix utils))
 
-(package
+
- (name "guile-equinix-metal")
+(define-public guile-equinix-metal
- (version "0.0.1")
+  (let ((vcs-file? (or (git-predicate (current-source-directory))
- (source (local-file "." "guile-equinix-metal"
+		       (const #t))))
-		     #:select? (git-predicate
+  (package
-				(dirname (assoc-ref (current-source-location) 'filename)))
+   (name "guile-equinix-metal")
-		     #:recursive? #t))
+   (version "0.0.5")
- (build-system guile-build-system)
+   (source (local-file "." "guile-equinix-metal"
- (native-inputs (list pkg-config guile-3.0))
+		       #:recursive? #t
- (inputs (list guile-3.0 guile-json-4))
+		       #:select? vcs-file?))
- (synopsis "Equinix Metal SDK")
+   (build-system guile-build-system)
- (home-page "https://git.fixergrid.net/adam/equinix-scm")
+   (arguments
- (description "Equinix-scm supports token exchange and talking to Metal API")
+    (list #:source-directory "src"))
- (license #f))
+   (inputs (list guile-3.0 guile-json-4 guile-gnutls))
+   (synopsis "Equinix Metal SDK")
+   (home-page "https://git.fixergrid.net/adam/equinix-scm")
+   (description "Equinix-scm supports token exchange and talking to Metal API")
+   (license #f))))
+
+guile-equinix-metal

src/metalapi/vlan.scm

@@ -1,6 +1,7 @@
 (define-module (metalapi vlan)
   #:use-module (metalapi requests)
   #:use-module (metalapi project)
+  #:use-module (json)
   #:export (build-vlan
 	    vlan->project
 	    vlan->metro-code