summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2016-09-01 10:30:50 -0400
committerJoey Hess2016-09-01 10:32:37 -0400
commit267b7057748d2c1e3a9de6984c0600e3a2ea123c (patch)
tree39bc6b53968b519ac790c9ad47cefa950dcbe356 /src/Propellor
parent32ff11ca82b8a6369931e8fefdb6c37d58f3dd56 (diff)
Tor.hiddenService: Converted port parameter from Int to Port. (API change)
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Property/Tor.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Propellor/Property/Tor.hs b/src/Propellor/Property/Tor.hs
index 92dbd507..fb756f56 100644
--- a/src/Propellor/Property/Tor.hs
+++ b/src/Propellor/Property/Tor.hs
@@ -119,7 +119,7 @@ bandwidthRate' s divby = case readSize dataUnits s of
`describe` ("tor BandwidthRate " ++ v)
Nothing -> property ("unable to parse " ++ s) noChange
-hiddenServiceAvailable :: HiddenServiceName -> Int -> Property DebianLike
+hiddenServiceAvailable :: HiddenServiceName -> Port -> Property DebianLike
hiddenServiceAvailable hn port = hiddenServiceHostName $ hiddenService hn port
where
hiddenServiceHostName p = adjustPropertySatisfy p $ \satisfy -> do
@@ -128,8 +128,8 @@ hiddenServiceAvailable hn port = hiddenServiceHostName $ hiddenService hn port
warningMessage $ unwords ["hidden service hostname:", h]
return r
-hiddenService :: HiddenServiceName -> Int -> Property DebianLike
-hiddenService hn port = ConfFile.adjustSection
+hiddenService :: HiddenServiceName -> Port -> Property DebianLike
+hiddenService hn (Port port) = ConfFile.adjustSection
(unwords ["hidden service", hn, "available on port", show port])
(== oniondir)
(not . isPrefixOf "HiddenServicePort")