From 58c8d74b4c4917f9f5e566709202ad432a7b2a6f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 31 May 2014 20:48:23 -0400 Subject: simplified record accessors --- src/Propellor/Engine.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Engine.hs') diff --git a/src/Propellor/Engine.hs b/src/Propellor/Engine.hs index 7cee42e8..ca0f7265 100644 --- a/src/Propellor/Engine.hs +++ b/src/Propellor/Engine.hs @@ -32,7 +32,7 @@ ensureProperties ps = ensure ps NoChange where ensure [] rs = return rs ensure (l:ls) rs = do - hn <- getHostName + hn <- asks hostName r <- actionMessageOn hn (propertyDesc l) (ensureProperty l) ensure ls (r <> rs) -- cgit v1.2.3