From e6fd8b8631bc525ba085496344e0b94386e3eca3 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 30 Jan 2017 19:31:58 -0700 Subject: fix type error: hiddenService -> hiddenService' --- src/Propellor/Property/Tor.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Property/Tor.hs') diff --git a/src/Propellor/Property/Tor.hs b/src/Propellor/Property/Tor.hs index 52b38230..db71c87a 100644 --- a/src/Propellor/Property/Tor.hs +++ b/src/Propellor/Property/Tor.hs @@ -147,7 +147,7 @@ hiddenServiceAvailable :: HiddenServiceName -> Port -> Property DebianLike hiddenServiceAvailable hn port = hiddenServiceAvailable' hn [port] hiddenServiceAvailable' :: HiddenServiceName -> [Port] -> Property DebianLike -hiddenServiceAvailable' hn ports = hiddenServiceHostName $ hiddenService hn ports +hiddenServiceAvailable' hn ports = hiddenServiceHostName $ hiddenService' hn ports where hiddenServiceHostName p = adjustPropertySatisfy p $ \satisfy -> do r <- satisfy -- cgit v1.2.3