diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-12-06 00:29:57 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-12-06 00:29:57 -0400 |
| commit | 8bd4bf6751a21af59062e066824c3501825d0184 (patch) | |
| tree | 354673167ccef7cf7bcf9b6463035982c96127ad /src | |
| parent | a72f50402d3fdce9bee4e309f61abb032497c9b2 (diff) | |
improve error display
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Journald.hs | 3 |
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" |