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/Docbook.hs b/Text/Pandoc/Writers/Docbook.hs
index 025727076..3e535a87e 100644
--- a/Text/Pandoc/Writers/Docbook.hs
+++ b/Text/Pandoc/Writers/Docbook.hs
@@ -32,7 +32,7 @@ import Text.Pandoc.Definition
 import Text.Pandoc.XML
 import Text.Pandoc.Shared
 import Text.Pandoc.Readers.TeXMath
-import Data.List ( isPrefixOf, drop )
+import Data.List ( isPrefixOf, drop, intercalate )
 import Text.PrettyPrint.HughesPJ hiding ( Str )
 
 -- | Convert list of authors to a docbook <author> section
@@ -50,7 +50,7 @@ authorToDocbook name = inTagsIndented "author" $
              (firstname, lastname) = case lengthname of
                0  -> ("","") 
                1  -> ("", name)
-               n  -> (joinWithSep " " (take (n-1) namewords), last namewords)
+               n  -> (intercalate " " (take (n-1) namewords), last namewords)
           in inTagsSimple "firstname" (text $ escapeStringForXML firstname) $$ 
              inTagsSimple "surname" (text $ escapeStringForXML lastname)