branch master updated: images: Add pine64-barebones-raw-image.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 8a4f1ee  images: Add pine64-barebones-raw-image.
8a4f1ee is described below

commit 8a4f1eef98490827b331460d7432de843926869b
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Oct 6 09:50:55 2020 +0200

    images: Add pine64-barebones-raw-image.
    
    * gnu/system/images/pine64.scm (pine64-barebones-raw-image): New variable.
    * gnu/ci.scm (%guix-system-images): Add it.
---
 gnu/ci.scm                   | 4 +++-
 gnu/system/images/pine64.scm | 9 ++++++++-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/ci.scm b/gnu/ci.scm
index fc35be8..bf9952a 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -56,6 +56,7 @@
   #:use-module (gnu system vm)
   #:use-module (gnu system install)
   #:use-module (gnu system images hurd)
+  #:use-module (gnu system images pine64)
   #:use-module (gnu tests)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-26)
@@ -203,7 +204,8 @@ SYSTEM."
   '("x86_64-linux" "i686-linux"))
 
 (define %guix-system-images
-  (list hurd-barebones-qcow2-image))
+  (list hurd-barebones-qcow2-image
+        pine64-barebones-raw-image))
 
 (define (image-jobs store system)
   "Return a list of jobs that build images for SYSTEM."
diff --git a/gnu/system/images/pine64.scm b/gnu/system/images/pine64.scm
index c738a77..f0b0c3f 100644
--- a/gnu/system/images/pine64.scm
+++ b/gnu/system/images/pine64.scm
@@ -28,7 +28,8 @@
   #:use-module (gnu system image)
   #:use-module (srfi srfi-26)
   #:export (pine64-barebones-os
-            pine64-image-type))
+            pine64-image-type
+            pine64-barebones-raw-image))
 
 (define pine64-barebones-os
   (operating-system
@@ -57,3 +58,9 @@
   (image-type
    (name 'pine64-raw)
    (constructor (cut image-with-os arm64-disk-image <>))))
+
+(define pine64-barebones-raw-image
+  (image
+   (inherit
+    (os->image pine64-barebones-os #:type pine64-image-type))
+   (name 'pine64-barebones-raw-image)))