YAML EFI boot entries

EfiBootEntry.hs

{-# LANGUAGE DeriveGeneric, DeriveAnyClass #-}

import GHC.Generics (Generic())
import Data.Yaml (decodeFileThrow, FromJSON, ToJSON)
import System.Process (callProcess)
import System.Environment (getArgs)

createEntry (BootEntry label kernel args) =
  callProcess "sudo" ["efibootmgr", "--disk", "/dev/nvme0n1", "--part", "1", "--create", "--label", label, "--loader", kernel, "-u", unwords args]

data BootEntry = BootEntry {
  label :: String,
  kernel :: String,
  args :: [String]
} deriving (Show, Eq, Generic, ToJSON, FromJSON)

main = do
  [fileName] <- getArgs
  bootEntry <- decodeFileThrow fileName
  createEntry bootEntry

entry.yaml

label: Arch Linux
kernel: /vmlinuz-linux 
args:
- root=/dev/nvme0n1p2 
- rw
- initrd=/intel-ucode.img
- initrd=/initramfs-linux.img
- net.ifnames=0