aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authormpickering <matthewtpickering@gmail.com>2014-08-21 17:11:16 +0100
committermpickering <matthewtpickering@gmail.com>2014-08-21 17:11:16 +0100
commit3b6d7afa717ec933df096be8dc5c484657ca619f (patch)
treec0b2866b3ec3bc23aae8beaabe395667062228ee /src
parent2a7319541d7c43fdd80d8b64169aae2e59255a2d (diff)
downloadpandoc-3b6d7afa717ec933df096be8dc5c484657ca619f.tar.gz
Txt2Tags Reader: Corrected formatting of %%mtime macro
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Txt2Tags.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Txt2Tags.hs b/src/Text/Pandoc/Readers/Txt2Tags.hs
index 8391c6062..c3a46a7f9 100644
--- a/src/Text/Pandoc/Readers/Txt2Tags.hs
+++ b/src/Text/Pandoc/Readers/Txt2Tags.hs
@@ -73,7 +73,7 @@ instance Default T2TMeta where
getT2TMeta :: [FilePath] -> FilePath -> IO T2TMeta
getT2TMeta inps out = do
curDate <- formatTime defaultTimeLocale "%F" <$> getZonedTime
- let getModTime = fmap (formatTime defaultTimeLocale "%F") .
+ let getModTime = fmap (formatTime defaultTimeLocale "%T") .
getModificationTime
curMtime <- catchIOError
(maximum <$> mapM getModTime inps)