summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Firewall.hs
diff options
context:
space:
mode:
authorJoey Hess2014-10-31 10:20:56 -0400
committerJoey Hess2014-10-31 10:20:56 -0400
commit2766558d61e4d6bfc27a1fa7a0e9c746f836b603 (patch)
treecd18362ac0cf2a6347bd541f74882a5546558c65 /src/Propellor/Property/Firewall.hs
parent3a1f058c64dd073e6326f8a8f1755e6892ab127a (diff)
remove hardcoded path
propellor runs as root, and /sbin should always be in root's path
Diffstat (limited to 'src/Propellor/Property/Firewall.hs')
-rw-r--r--src/Propellor/Property/Firewall.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Property/Firewall.hs b/src/Propellor/Property/Firewall.hs
index e1570175..b660207b 100644
--- a/src/Propellor/Property/Firewall.hs
+++ b/src/Propellor/Property/Firewall.hs
@@ -30,10 +30,10 @@ rule c t rs = property ("firewall rule: " <> show r) addIpTable
r = Rule c t rs
addIpTable = liftIO $ do
let args = toIpTable r
- exist <- boolSystem "/sbin/iptables" (chk args)
+ exist <- boolSystem "iptables" (chk args)
if exist
then return NoChange
- else ifM (boolSystem "/sbin/iptables" (add args))
+ else ifM (boolSystem "iptables" (add args))
( return MadeChange , return FailedChange)
add params = (Param "-A") : params
chk params = (Param "-C") : params