diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-01-31 21:29:33 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-01-31 21:29:33 -0700 |
| commit | 7ba44cc7fb3b0897fa396a5b66068a2db7961afb (patch) | |
| tree | 67362828f1094e200d7415936bc53f2fdc13edee /src/Propellor/Property/File.hs | |
| parent | dce47e8fd085e60e359004fd22ff27e178d50af2 (diff) | |
fix removal of blocks
Diffstat (limited to 'src/Propellor/Property/File.hs')
| -rw-r--r-- | src/Propellor/Property/File.hs | 2 |
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. |