6dc3b65 · typeable/pandoc

pandoc.cabal+5−1

compare with master

unifiedsplit

@@ -393,7 +393,7 @@ Library

393 Text.Pandoc.ImageSize,

394 Text.Pandoc.Slides,

395 Text.Pandoc.Highlighting,

396− Text.Pandoc.Compat.Locale,

396+ Text.Pandoc.Compat.Time,

397 Text.Pandoc.Compat.Except,

398 Text.Pandoc.Compat.TagSoupEntity,

399 Text.Pandoc.Compat.Directory

@@ -432,6 +432,7 @@ Executable pandoc

432 Hs-Source-Dirs: ., prelude

433 Main-Is: pandoc.hs

434 Buildable: True

435+ Other-Modules: Prelude

435

436

436Executable trypandoc

437Executable trypandoc

437 Main-Is: trypandoc.hs

438 Main-Is: trypandoc.hs

@@ -443,6 +444,7 @@ Executable trypandoc

443 Buildable: True

444 Buildable: True

444 else

445 else

445 Buildable: False

446 Buildable: False

447+ Other-Modules: Prelude

446

448

447Test-Suite test-pandoc

449Test-Suite test-pandoc

448 Type: exitcode-stdio-1.0

450 Type: exitcode-stdio-1.0

@@ -492,6 +494,7 @@ Test-Suite test-pandoc

492 Tests.Writers.LaTeX

494 Tests.Writers.LaTeX

493 Tests.Writers.Docx

495 Tests.Writers.Docx

494 Tests.Writers.RST

496 Tests.Writers.RST

497+ Prelude

495 Ghc-Options: -rtsopts -Wall -fno-warn-unused-do-bind -threaded

498 Ghc-Options: -rtsopts -Wall -fno-warn-unused-do-bind -threaded

496 Default-Language: Haskell98

499 Default-Language: Haskell98

497

500

@@ -505,3 +508,4 @@ benchmark benchmark-pandoc

505 criterion >= 1.0 && < 1.2

508 criterion >= 1.0 && < 1.2

506 Ghc-Options: -rtsopts -Wall -fno-warn-unused-do-bind

509 Ghc-Options: -rtsopts -Wall -fno-warn-unused-do-bind

507 Default-Language: Haskell98

510 Default-Language: Haskell98

511+ Other-Modules: Prelude

src/Text/Pandoc/Compat/Locale.hsdeleted−9

@@ -1,9 +0,0 @@

1−{-# LANGUAGE CPP #-}

2−module Text.Pandoc.Compat.Locale ( defaultTimeLocale )

3−where

4−

5−#if MIN_VERSION_time(1,5,0)

6−import Data.Time.Format ( defaultTimeLocale )

7−#else

8−import System.Locale ( defaultTimeLocale )

9−#endif

src/Text/Pandoc/Compat/Time.hsnew file+18

@@ -0,0 +1,18 @@

1+{-# LANGUAGE CPP #-}

2+#if MIN_VERSION_time(1,5,0)

3+module Text.Pandoc.Compat.Time (

4+ module Data.Time

5+)

6+where

7+import Data.Time

8+

9+#else

10+module Text.Pandoc.Compat.Time (

11+ module Data.Time,

12+ defaultTimeLocale

13+)

14+where

15+import Data.Time

16+import System.Locale ( defaultTimeLocale )

17+

18+#endif

src/Text/Pandoc/Readers/Txt2Tags.hs+1−1

@@ -50,7 +50,7 @@ import Text.Pandoc.Error

50import Data.Time.LocalTime (getZonedTime)

51import Text.Pandoc.Compat.Directory(getModificationTime)

52import Data.Time.Format (formatTime)

53−import Text.Pandoc.Compat.Locale (defaultTimeLocale)

53+import Text.Pandoc.Compat.Time (defaultTimeLocale)

54import System.IO.Error (catchIOError)

55

56type T2T = ParserT String ParserState (Reader T2TMeta)

src/Text/Pandoc/Shared.hs+7−3

@@ -123,8 +123,7 @@ import qualified Control.Monad.State as S

123import qualified Control.Exception as E

124import Control.Monad (msum, unless, MonadPlus(..))

125import Text.Pandoc.Pretty (charWidth)

126−import Text.Pandoc.Compat.Locale (defaultTimeLocale)

126+import Text.Pandoc.Compat.Time

127−import Data.Time

128import Data.Time.Clock.POSIX

127import Data.Time.Clock.POSIX

129import System.IO (stderr)

128import System.IO (stderr)

130import System.IO.Temp

129import System.IO.Temp

@@ -321,7 +320,12 @@ tabFilter tabStop =

321normalizeDate :: String -> Maybe String

320normalizeDate :: String -> Maybe String

322normalizeDate s = fmap (formatTime defaultTimeLocale "%F")

321normalizeDate s = fmap (formatTime defaultTimeLocale "%F")

323 (msum $ map (\fs -> parsetimeWith fs s) formats :: Maybe Day)

322 (msum $ map (\fs -> parsetimeWith fs s) formats :: Maybe Day)

323+ where parsetimeWith =

324+#if MIN_VERSION_time(1,5,0)

325+ parseTimeM True defaultTimeLocale

326+#else

324− where parsetimeWith = parseTime defaultTimeLocale

327+ parseTime defaultTimeLocale

328+#endif

325 formats = ["%x","%m/%d/%Y", "%D","%F", "%d %b %Y",

329 formats = ["%x","%m/%d/%Y", "%D","%F", "%d %b %Y",

326 "%d %B %Y", "%b. %d, %Y", "%B %d, %Y", "%Y"]

330 "%d %B %Y", "%b. %d, %Y", "%B %d, %Y", "%Y"]

327

331

src/Text/Pandoc/Writers/Docx.hs+1−2

@@ -38,9 +38,8 @@ import qualified Text.Pandoc.UTF8 as UTF8

38import Codec.Archive.Zip

39import Data.Time.Clock.POSIX

40import Data.Time.Clock

41−import Data.Time.Format

42import System.Environment

41import System.Environment

43−import Text.Pandoc.Compat.Locale (defaultTimeLocale)

42+import Text.Pandoc.Compat.Time

44import Text.Pandoc.Definition

43import Text.Pandoc.Definition

45import Text.Pandoc.Generic

44import Text.Pandoc.Generic

46import Text.Pandoc.ImageSize

45import Text.Pandoc.ImageSize

src/Text/Pandoc/Writers/EPUB.hs+1−2

@@ -43,8 +43,7 @@ import qualified Data.ByteString.Lazy.Char8 as B8

43import qualified Text.Pandoc.UTF8 as UTF8

44import Codec.Archive.Zip ( emptyArchive, addEntryToArchive, eRelativePath, fromEntry , Entry, toEntry, fromArchive)

45import Data.Time.Clock.POSIX ( getPOSIXTime )

46−import Data.Time (getCurrentTime,UTCTime, formatTime)

47−import Text.Pandoc.Compat.Locale ( defaultTimeLocale )

46+import Text.Pandoc.Compat.Time

48import Text.Pandoc.Shared ( renderTags', safeRead, uniqueIdent, trim

47import Text.Pandoc.Shared ( renderTags', safeRead, uniqueIdent, trim

49 , normalizeDate, readDataFile, stringify, warn

48 , normalizeDate, readDataFile, stringify, warn

50 , hierarchicalize, fetchItem' )

49 , hierarchicalize, fetchItem' )

src/Text/Pandoc/Writers/OPML.hs+9−4

@@ -1,3 +1,4 @@

1+{-# LANGUAGE CPP #-}

1{-

2{-

3

4

@@ -37,8 +38,7 @@ import Text.Pandoc.Templates (renderTemplate')

37import Text.Pandoc.Writers.HTML (writeHtmlString)

38import Text.Pandoc.Writers.HTML (writeHtmlString)

38import Text.Pandoc.Writers.Markdown (writeMarkdown)

39import Text.Pandoc.Writers.Markdown (writeMarkdown)

39import Text.Pandoc.Pretty

40import Text.Pandoc.Pretty

40−import Data.Time

41−import Text.Pandoc.Compat.Locale (defaultTimeLocale)

41+import Text.Pandoc.Compat.Time

42import qualified Text.Pandoc.Builder as B

43

44-- | Convert Pandoc document to string in OPML format.

@@ -69,8 +69,13 @@ showDateTimeRFC822 :: UTCTime -> String

69showDateTimeRFC822 = formatTime defaultTimeLocale "%a, %d %b %Y %X %Z"

70

71convertDate :: [Inline] -> String

72−convertDate ils = maybe "" showDateTimeRFC822

72+convertDate ils = maybe "" showDateTimeRFC822 $

73+#if MIN_VERSION_time(1,5,0)

74+ parseTimeM True

75+#else

76+ parseTime

77+#endif

73− $ parseTime defaultTimeLocale "%F" =<< (normalizeDate $ stringify ils)

78+ defaultTimeLocale "%F" =<< (normalizeDate $ stringify ils)

74

79

75-- | Convert an Element to OPML.

80-- | Convert an Element to OPML.

76elementToOPML :: WriterOptions -> Element -> Doc

81elementToOPML :: WriterOptions -> Element -> Doc