From 8bd4bf6751a21af59062e066824c3501825d0184 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 6 Dec 2015 00:29:57 -0400 Subject: improve error display --- src/Propellor/Property/Journald.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Propellor/Property/Journald.hs b/src/Propellor/Property/Journald.hs index 6c8bda80..2fbb780e 100644 --- a/src/Propellor/Property/Journald.hs +++ b/src/Propellor/Property/Journald.hs @@ -17,7 +17,8 @@ type DataSize = String configuredSize :: Systemd.Option -> DataSize -> Property NoInfo configuredSize option s = case readSize dataUnits s of Just sz -> configured option (systemdSizeUnits sz) - Nothing -> property ("unable to parse " ++ option ++ " data size " ++ s) noChange + Nothing -> property ("unable to parse " ++ option ++ " data size " ++ s) $ + return FailedChange systemMaxUse :: DataSize -> Property NoInfo systemMaxUse = configuredSize "SystemMaxUse" -- cgit v1.2.3