Use Data.List's 'intercalate' instead of custom 'joinWithSep'.

+ Removed joinWithSep definition from Text.Pandoc.Shared.
+ Replaced joinWithSep with intercalate
+ Depend on base >= 3, since in base < 3 intercalate is not included.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@1428 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 2 insertions, 2 deletions

diff --git a/Text/Pandoc/Writers/LaTeX.hs b/Text/Pandoc/Writers/LaTeX.hs
index a13c51b30..8b8f87c57 100644
--- a/Text/Pandoc/Writers/LaTeX.hs
+++ b/Text/Pandoc/Writers/LaTeX.hs
@@ -31,7 +31,7 @@ module Text.Pandoc.Writers.LaTeX ( writeLaTeX ) where
 import Text.Pandoc.Definition
 import Text.Pandoc.Shared
 import Text.Printf ( printf )
-import Data.List ( (\\), isSuffixOf )
+import Data.List ( (\\), isSuffixOf, intercalate )
 import Data.Char ( toLower )
 import qualified Data.Set as S
 import Control.Monad.State
@@ -92,7 +92,7 @@ latexHeader options (Meta title authors date) = do
                      then text "\\VerbatimFootnotes % allows verbatim text in footnotes"
                      else empty
   let authorstext = text $ "\\author{" ++ 
-                    joinWithSep "\\\\" (map stringToLaTeX authors) ++ "}"
+                    intercalate "\\\\" (map stringToLaTeX authors) ++ "}"
   let datetext  = if date == ""
                      then empty 
                      else text $ "\\date{" ++ stringToLaTeX date ++ "}"