Include guile-json for scm->json

.guix/modules/guile-equinix.scm

@@ -1,26 +0,0 @@
-(define-module (guile-equinix-metal-package)
-  #:use-module (gnu packages guile)
-  #:use-module (gnu packages pkg-config)
-  #:use-module (guix gexp)
-  #:use-module (guix packages)
-  #:use-module (guix git-download)
-  #:use-module (guix build-system guile)
-  #:use-module ((guix licenses) #:prefix license:))
-
-(define-public guile-equinix-metal
-  (package
- (name "guile-equinix-metal")
- (version "0.0.3")
- (source (local-file "." "guile-equinix-metal"
-		     #:select? (git-predicate
-				(dirname (assoc-ref (current-source-location) 'filename)))
-		     #:recursive? #t))
- (build-system guile-build-system)
- (native-inputs (list pkg-config guile-3.0))
- (inputs (list guile-3.0 guile-json-4))
- (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 license:gpl3+)))
-
-guile-equinix-metal

guix.scm

@@ -1 +0,0 @@
-.guix/modules/guile-equinix.scm

guix.scm

@@ -0,0 +1,29 @@
+(use-modules (guix packages)
+	     (guix gexp)
+	     (guix build-system guile)
+	     (gnu packages)
+	     (gnu packages guile)
+	     (gnu packages tls)
+	     (guix git-download)
+	     (guix utils))
+
+
+(define-public guile-equinix-metal
+  (let ((vcs-file? (or (git-predicate (current-source-directory))
+		       (const #t))))
+  (package
+   (name "guile-equinix-metal")
+   (version "0.0.5")
+   (source (local-file "." "guile-equinix-metal"
+		       #:recursive? #t
+		       #:select? vcs-file?))
+   (build-system guile-build-system)
+   (arguments
+    (list #:source-directory "src"))
+   (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