From 1e22e178b4080e70efc262e42943e615abfdb3b9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 8 Oct 2014 13:17:11 -0400 Subject: a few other whitespace fixups --- src/Propellor/Property/Dns.hs | 2 +- src/Propellor/SimpleSh.hs | 4 ++-- src/Propellor/Types.hs | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/Propellor/Property/Dns.hs b/src/Propellor/Property/Dns.hs index fb6d8b56..135c765d 100644 --- a/src/Propellor/Property/Dns.hs +++ b/src/Propellor/Property/Dns.hs @@ -380,7 +380,7 @@ genZone hosts zdomain soa = [] -> [ret (CNAME c)] l -> map (ret . Address) l where - ret record = Right (c, record) + ret record = Right (c, record) -- Adds any other DNS records for a host located in the zdomain. hostrecords :: Host -> [Either WarningMessage (BindDomain, Record)] diff --git a/src/Propellor/SimpleSh.hs b/src/Propellor/SimpleSh.hs index 7ba30b0e..cc5c62cd 100644 --- a/src/Propellor/SimpleSh.hs +++ b/src/Propellor/SimpleSh.hs @@ -48,8 +48,8 @@ simpleSh namedpipe = do flip catchIO (\_e -> writeChan chan Done) $ do let p = (proc cmd params) - { std_in = Inherit - , std_out = CreatePipe + { std_in = Inherit + , std_out = CreatePipe , std_err = CreatePipe } (Nothing, Just outh, Just errh, pid) <- createProcess p diff --git a/src/Propellor/Types.hs b/src/Propellor/Types.hs index 0cb02793..b606cef2 100644 --- a/src/Propellor/Types.hs +++ b/src/Propellor/Types.hs @@ -89,7 +89,7 @@ instance IsProp Property where getInfo = propertyInfo x `requires` y = Property (propertyDesc x) satisfy info where - info = getInfo y <> getInfo x + info = getInfo y <> getInfo x satisfy = do r <- propertySatisfy y case r of -- cgit v1.2.3