summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2015-02-27 19:17:42 -0400
committerJoey Hess2015-02-27 19:17:42 -0400
commit1a62575d3dc8ce703705de08ccd27b4b034a3388 (patch)
tree7db13815acc87b5047b5b188cb69f1d127c74b64 /src
parentd67d59a25a951f236ee9bde74fd29ed773b3dd86 (diff)
propellor spin
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/Property/Tor.hs4
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