Slight code cleanup on substitute function.

1 files changed, 4 insertions, 4 deletions

diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 6cb7a2b95..578ffa94b 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -109,11 +109,11 @@ splitByIndices (x:xs) lst =
 -- | Replace each occurrence of one sublist in a list with another.
 substitute :: (Eq a) => [a] -> [a] -> [a] -> [a]
 substitute _ _ [] = []
-substitute [] _ lst = lst
-substitute target replacement lst = 
+substitute [] _ xs = xs
+substitute target replacement lst@(x:xs) =
     if target `isPrefixOf` lst
-       then replacement ++ (substitute target replacement $ drop (length target) lst)
-       else (head lst):(substitute target replacement $ tail lst)
+       then replacement ++ substitute target replacement (drop (length target) lst)
+       else x : substitute target replacement xs
 
 --
 -- Text processing