prefer linux-image version from /vmlinuz symlink to $(uname -r)

1 files changed, 1 insertions, 1 deletions

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 =