From 1509836040013d2e6e1e73fece14525a2b441d9b Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Sat, 13 Mar 2021 19:09:01 -0500
Subject: prefer linux-image version from /vmlinuz symlink to $(uname -r)

---
 fsmgr.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fsmgr.hs b/fsmgr.hs
index 57d04f1..6af4c82 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -55,7 +55,7 @@ getDebianCodename = unsafePerformIO $ do
 
 uname :: (String, String)
 uname = unsafePerformIO $ do
-  Stdout out <- cmd "uname -r"
+  Stdout out <- cmd "sh -c" ["f=$([ -L /vmlinuz ] && readlink /vmlinuz); f=${f##*/vmlinuz-}; echo ${f:-$(uname -r)}"]
   pure $ (reverse *** reverse . tail) . break (== '-') . reverse . head . lines $ out
 
 data AptListCfg =
-- 
cgit v1.2.3