summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorFélix Sipma2014-11-11 11:31:17 +0100
committerJoey Hess2014-11-11 11:57:39 -0400
commit2368b0d5af6cdf3b7a3b116c4b1d1a208a6776e0 (patch)
treed4a6a8a05363bb78e59e89f037f42bed3935fb0e /src/Propellor
parent1f328755f5a0f91390a4c7cc0157b4e1fabcb5d9 (diff)
Tor: rename 'varPath' to 'varLib'
Signed-off-by: Félix Sipma <felix.sipma@no-log.org>
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Property/Tor.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Propellor/Property/Tor.hs b/src/Propellor/Property/Tor.hs
index 57fbc715..6a1b1eed 100644
--- a/src/Propellor/Property/Tor.hs
+++ b/src/Propellor/Property/Tor.hs
@@ -20,20 +20,20 @@ hiddenServiceAvailable :: HostName -> Int -> Property
hiddenServiceAvailable hn port = hiddenServiceHostName prop
where
prop = mainConfig `File.containsLines`
- [ unlines ["HiddenServiceDir", varPath </> hn]
+ [ unlines ["HiddenServiceDir", varLib </> hn]
, unlines ["HiddenServicePort", show port, "127.0.0.1:" ++ show port]
]
`describe` "hidden service available"
`onChange` Service.reloaded "tor"
hiddenServiceHostName p = adjustProperty p $ \satisfy -> do
r <- satisfy
- h <- liftIO $ readFile (varPath </> hn </> "hostname")
+ h <- liftIO $ readFile (varLib </> hn </> "hostname")
warningMessage $ unlines ["hidden service hostname:", h]
return r
hiddenService :: HostName -> Int -> Property
hiddenService hn port = mainConfig `File.containsLines`
- [ unlines ["HiddenServiceDir", varPath </> hn]
+ [ unlines ["HiddenServiceDir", varLib </> hn]
, unlines ["HiddenServicePort", show port, "127.0.0.1:" ++ show port]
]
`describe` unlines ["hidden service available:", hn, show port]
@@ -45,5 +45,5 @@ restarted = Service.restarted "tor"
mainConfig :: FilePath
mainConfig = "/etc/tor/torrc"
-varPath :: FilePath
-varPath = "/var/lib/tor"
+varLib :: FilePath
+varLib = "/var/lib/tor"