summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/File.hs
diff options
context:
space:
mode:
authorSean Whitton2017-01-31 21:29:33 -0700
committerSean Whitton2017-01-31 21:29:33 -0700
commit7ba44cc7fb3b0897fa396a5b66068a2db7961afb (patch)
tree67362828f1094e200d7415936bc53f2fdc13edee /src/Propellor/Property/File.hs
parentdce47e8fd085e60e359004fd22ff27e178d50af2 (diff)
fix removal of blocks
Diffstat (limited to 'src/Propellor/Property/File.hs')
-rw-r--r--src/Propellor/Property/File.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/File.hs b/src/Propellor/Property/File.hs
index f57480a3..9f73b14a 100644
--- a/src/Propellor/Property/File.hs
+++ b/src/Propellor/Property/File.hs
@@ -46,7 +46,7 @@ f `containsBlock` ls =
| otherwise = content ++ ls
remove [] = []
remove content@(x:xs)
- | ls `isPrefixOf` content = x : remove (drop (length ls) xs)
+ | ls `isPrefixOf` content = remove (drop (length ls) content)
| otherwise = x : remove xs
-- | Ensures that a line is not present in a file.