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 =

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
55		55
56	uname :: (String, String)	56	uname :: (String, String)
57	uname = unsafePerformIO $ do	57	uname = unsafePerformIO $ do
58	Stdout out <- cmd "uname -r"	58	Stdout out <- cmd "sh -c" ["f=$([ -L /vmlinuz ] && readlink /vmlinuz); f=${f##*/vmlinuz-}; echo ${f:-$(uname -r)}"]
59	pure $ (reverse *** reverse . tail) . break (== '-') . reverse . head . lines $ out	59	pure $ (reverse *** reverse . tail) . break (== '-') . reverse . head . lines $ out
60		60
61	data AptListCfg =	61	data AptListCfg =