From 5765ac2523434221cbc29fe45e421cc99d97aa3b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 11 Jul 2010 12:22:18 -0700
Subject: Slight code cleanup on substitute function.

---
 src/Text/Pandoc/Shared.hs | 8 ++++----
 1 file 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
-- 
cgit v1.2.3