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.
This commit is contained in:
Mathieu Othacehe 2020-10-06 09:50:55 +02:00
parent c1cc0c4865
commit 8a4f1eef98
No known key found for this signature in database
GPG key ID: 8354763531769CA6
2 changed files with 11 additions and 2 deletions

View file

@ -56,6 +56,7 @@ (define-module (gnu ci)
#: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 @@ (define %guix-system-supported-systems
'("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."

View file

@ -28,7 +28,8 @@ (define-module (gnu system images pine64)
#: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 @@ (define pine64-image-type
(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)))