summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Reboot.hs
diff options
context:
space:
mode:
authorSean Whitton2016-06-12 11:02:22 +0900
committerSean Whitton2016-06-12 11:02:22 +0900
commit69a3ded2f0f6f968220f87cc54850a450e77a124 (patch)
tree04a5d4fa07563e69b002f977e9765c9d534f622d /src/Propellor/Property/Reboot.hs
parent4a7448e9f22586419e3b9aefd8baa35fffa880b0 (diff)
also remove any that didn't have versions in name
Diffstat (limited to 'src/Propellor/Property/Reboot.hs')
-rw-r--r--src/Propellor/Property/Reboot.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/Reboot.hs b/src/Propellor/Property/Reboot.hs
index d3b2d372..84cf3fc6 100644
--- a/src/Propellor/Property/Reboot.hs
+++ b/src/Propellor/Property/Reboot.hs
@@ -103,5 +103,5 @@ kernelsIn d = filter ("vmlinu" `isInfixOf`) <$> dirContents d
-- TODO this is way too crude
extractKernelVersion :: String -> KernelVersion
extractKernelVersion s =
- concat . reverse . drop 1 . reverse . drop 1 $
+ concat . filter (/= "") . reverse . drop 1 . reverse . drop 1 $
split "-" s