From a1183efbcb6a2a3f62027aa452c99ac3be17c6b8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 23 Oct 2015 11:51:14 -0400 Subject: propellor spin --- src/Propellor/Property/Mount.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Property/Mount.hs') diff --git a/src/Propellor/Property/Mount.hs b/src/Propellor/Property/Mount.hs index 2496b1cc..a08f9e3b 100644 --- a/src/Propellor/Property/Mount.hs +++ b/src/Propellor/Property/Mount.hs @@ -150,7 +150,7 @@ findmntField field mnt = catchDefaultIO Nothing $ blkidTag :: String -> Source -> IO (Maybe String) blkidTag tag dev = catchDefaultIO Nothing $ headMaybe . filter (not . null) . lines - <$> readProcess "blkid" [dev, "-s", tag] + <$> readProcess "blkid" [dev, "-s", tag, "-o", "value"] -- | Unmounts a device or mountpoint, -- lazily so any running processes don't block it. -- cgit v1.2.3