summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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