diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-02-27 19:17:42 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-02-27 19:17:42 -0400 |
| commit | 1a62575d3dc8ce703705de08ccd27b4b034a3388 (patch) | |
| tree | 7db13815acc87b5047b5b188cb69f1d127c74b64 /src | |
| parent | d67d59a25a951f236ee9bde74fd29ed773b3dd86 (diff) | |
propellor spin
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Tor.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Propellor/Property/Tor.hs b/src/Propellor/Property/Tor.hs index 3a0926be..7a490824 100644 --- a/src/Propellor/Property/Tor.hs +++ b/src/Propellor/Property/Tor.hs @@ -97,7 +97,9 @@ bandwidthRate (PerMonth s) = bandwidthRate' s (31*24*60*60) bandwidthRate' :: String -> Integer -> Property NoInfo bandwidthRate' s divby = case readSize dataUnits s of - Just sz -> configured [("BandwidthRate", show (sz `div` divby) ++ " bytes")] + Just sz -> let v = show (sz `div` divby) ++ " bytes" + in configured [("BandwidthRate", v)] + `describe` ("tor BandwidthRate " ++ v) Nothing -> property ("unable to parse " ++ s) noChange hiddenServiceAvailable :: HiddenServiceName -> Int -> Property NoInfo |