From 71e76175be8a5fabb807a8462a1ab315868c8914 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 30 Jul 2014 17:25:00 -0700
Subject: getT2TMeta:  Take list of source files instead of single.

Get latest modification time.
---
 src/Text/Pandoc/Readers/Txt2Tags.hs | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'src/Text/Pandoc/Readers')

diff --git a/src/Text/Pandoc/Readers/Txt2Tags.hs b/src/Text/Pandoc/Readers/Txt2Tags.hs
index 8d8af309e..3a51b9d84 100644
--- a/src/Text/Pandoc/Readers/Txt2Tags.hs
+++ b/src/Text/Pandoc/Readers/Txt2Tags.hs
@@ -70,14 +70,15 @@ instance Default T2TMeta where
     def = T2TMeta "" "" "" ""
 
 -- | Get the meta information required by Txt2Tags macros
-getT2TMeta :: FilePath -> FilePath -> IO T2TMeta
-getT2TMeta inp out = do
+getT2TMeta :: [FilePath] -> FilePath -> IO T2TMeta
+getT2TMeta inps out = do
     curDate <- formatTime defaultTimeLocale "%F" <$> getZonedTime
-    let getModTime = formatTime defaultTimeLocale "%F"
-                      <$> getModificationTime inp
-    curMtime <- catchIOError getModTime (const (return ""))
-
-    return $ T2TMeta curDate curMtime inp out
+    let getModTime = fmap (formatTime defaultTimeLocale "%F") .
+                       getModificationTime
+    curMtime <- catchIOError
+                (maximum <$> mapM getModTime inps)
+                (const (return ""))
+    return $ T2TMeta curDate curMtime (intercalate ", " inps) out
 
 -- | Read Txt2Tags from an input string returning a Pandoc document
 readTxt2Tags :: T2TMeta -> ReaderOptions -> String -> Pandoc
-- 
cgit v1.2.3