summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2014-10-08 13:17:11 -0400
committerJoey Hess2014-10-08 13:19:53 -0400
commit1e22e178b4080e70efc262e42943e615abfdb3b9 (patch)
tree0b1efea1bdc6785ae2ffe8c56cb2230716b24263 /src/Propellor
parent6a674c79d7d9f58c683695114bca2bdffe671bf7 (diff)
a few other whitespace fixups
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Property/Dns.hs2
-rw-r--r--src/Propellor/SimpleSh.hs4
-rw-r--r--src/Propellor/Types.hs2
3 files changed, 4 insertions, 4 deletions
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