diff options
Diffstat (limited to 'fsmgr.hs')
-rw-r--r-- | fsmgr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 = |