summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2015-12-06 00:29:57 -0400
committerJoey Hess2015-12-06 00:29:57 -0400
commit8bd4bf6751a21af59062e066824c3501825d0184 (patch)
tree354673167ccef7cf7bcf9b6463035982c96127ad /src/Propellor
parenta72f50402d3fdce9bee4e309f61abb032497c9b2 (diff)
improve error display
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Property/Journald.hs3
1 files changed, 2 insertions, 1 deletions
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"