diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-10 16:27:36 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-10 16:27:36 -0400 |
| commit | d8ca671086123878c975e2409f92d1dea1b8301e (patch) | |
| tree | 92247e339b68227cc02b67aeefab90257619c6c3 | |
| parent | 929d26d556a4fbeb58723e451c7bf1e3887bb9d6 (diff) | |
didn't need quite so much indentation
| -rw-r--r-- | src/Propellor/Property/Tor.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Propellor/Property/Tor.hs b/src/Propellor/Property/Tor.hs index 47cd83a2..3623e9c3 100644 --- a/src/Propellor/Property/Tor.hs +++ b/src/Propellor/Property/Tor.hs @@ -20,11 +20,11 @@ hiddenServiceAvailable :: FilePath -> Int -> Property hiddenServiceAvailable dir port = hiddenServiceHostName prop where prop = "/etc/tor/torrc" `File.containsLines` - [ "HiddenServiceDir " ++ dir - , "HiddenServicePort " ++ show port ++ " 127.0.0.1:" ++ show port - ] - `describe` "hidden service available" - `onChange` Service.reloaded "tor" + [ "HiddenServiceDir " ++ dir + , "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 (dir </> "hostname") |