diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-01-21 23:28:47 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-21 23:28:47 -0400 |
| commit | 4d34b837d2d81c76a50e8b7f1d31c80af3238f36 (patch) | |
| tree | c7c08ca13f1a665d51eb593adb058797b30d16bb /src/Propellor/Property/Systemd | |
| parent | a37e0a6bc3816bb85f1ebca7e0fd7a9bb2349b3a (diff) | |
reorg
Diffstat (limited to 'src/Propellor/Property/Systemd')
| -rw-r--r-- | src/Propellor/Property/Systemd/Journald.hs | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/src/Propellor/Property/Systemd/Journald.hs b/src/Propellor/Property/Systemd/Journald.hs deleted file mode 100644 index 978cd54d..00000000 --- a/src/Propellor/Property/Systemd/Journald.hs +++ /dev/null @@ -1,53 +0,0 @@ -module Propellor.Property.Systemd.Journald where -import Propellor -import qualified Propellor.Property.Systemd as Systemd -import Utility.DataUnits - --- | Configures journald, restarting it so the changes take effect. -configured :: Systemd.Option -> String -> Property -configured option value = - Systemd.configured "/etc/systemd/journald.conf" option value - `onChange` Systemd.restarted "systemd-journald" - --- The string is parsed to get a data size. --- Examples: "100 megabytes" or "0.5tb" -type DataSize = String - -configuredSize :: Systemd.Option -> DataSize -> Property -configuredSize option s = case readSize dataUnits s of - Just sz -> configured option (systemdSizeUnits sz) - Nothing -> property ("unable to parse " ++ option ++ " data size " ++ s) noChange - -systemMaxUse :: DataSize -> Property -systemMaxUse = configuredSize "SystemMaxUse" - -runtimeMaxUse :: DataSize -> Property -runtimeMaxUse = configuredSize "RuntimeMaxUse" - -systemKeepFree :: DataSize -> Property -systemKeepFree = configuredSize "SystemKeepFree" - -runtimeKeepFree :: DataSize -> Property -runtimeKeepFree = configuredSize "RuntimeKeepFree" - -systemMaxFileSize :: DataSize -> Property -systemMaxFileSize = configuredSize "SystemMaxFileSize" - -runtimeMaxFileSize :: DataSize -> Property -runtimeMaxFileSize = configuredSize "RuntimeMaxFileSize" - --- Generates size units as used in journald.conf. -systemdSizeUnits :: Integer -> String -systemdSizeUnits sz = filter (/= ' ') (roughSize cfgfileunits True sz) - where - cfgfileunits :: [Unit] - cfgfileunits = - [ Unit (p 6) "E" "exabyte" - , Unit (p 5) "P" "petabyte" - , Unit (p 4) "T" "terabyte" - , Unit (p 3) "G" "gigabyte" - , Unit (p 2) "M" "megabyte" - , Unit (p 1) "K" "kilobyte" - ] - p :: Integer -> Integer - p n = 1024^n |