From 8a4f1eef98490827b331460d7432de843926869b Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Tue, 6 Oct 2020 09:50:55 +0200
Subject: 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 fc35be87b4..bf9952a450 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 c738a77078..f0b0c3f50d 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)))
-- 
cgit 1.4.1