git.iko.soy/typeable/pandoc

on master help sign in

pandoc.cabal+31−41

compare with master

unifiedsplit

@@ -377,7 +377,8 @@ flag trypandoc

377 Default: False

377 Default: False

378

378

379library

379library

380− build-depends: base >= 4.9 && < 5,

380+ build-depends: base-noprelude >= 4.9 && < 5,

381+ base-compat >= 0.9,

381 syb >= 0.1 && < 0.8,

382 syb >= 0.1 && < 0.8,

382 containers >= 0.4.2.1 && < 0.7,

383 containers >= 0.4.2.1 && < 0.7,

383 unordered-containers >= 0.2 && < 0.3,

384 unordered-containers >= 0.2 && < 0.3,

@@ -440,10 +441,6 @@ library

440 build-depends: basement >= 0.0.10,

441 build-depends: basement >= 0.0.10,

441 foundation >= 0.0.23

442 foundation >= 0.0.23

442 -- basement 0.0.9 won't build on 32-bit windows.

443 -- basement 0.0.9 won't build on 32-bit windows.

443− if impl(ghc < 8.4)

444− hs-source-dirs: prelude

445− other-modules: Prelude

446− build-depends: base-compat >= 0.9

447 if os(windows)

444 if os(windows)

448 cpp-options: -D_WINDOWS

445 cpp-options: -D_WINDOWS

449 else

446 else

@@ -471,7 +468,8 @@ library

471

468

472 default-language: Haskell2010

469 default-language: Haskell2010

473 other-extensions: NoImplicitPrelude

470 other-extensions: NoImplicitPrelude

474− hs-source-dirs: src

471+ hs-source-dirs: src,

472+ prelude

475

473

476 exposed-modules: Text.Pandoc,

474 exposed-modules: Text.Pandoc,

477 Text.Pandoc.App,

475 Text.Pandoc.App,

@@ -565,7 +563,8 @@ library

565 Text.Pandoc.ImageSize,

563 Text.Pandoc.ImageSize,

566 Text.Pandoc.BCP47,

564 Text.Pandoc.BCP47,

567 Text.Pandoc.Class

565 Text.Pandoc.Class

566+ other-modules: Prelude,

568− other-modules: Text.Pandoc.App.CommandLineOptions,

567+ Text.Pandoc.App.CommandLineOptions,

569 Text.Pandoc.App.FormatHeuristics,

568 Text.Pandoc.App.FormatHeuristics,

570 Text.Pandoc.App.Opt,

569 Text.Pandoc.App.Opt,

571 Text.Pandoc.App.OutputSettings,

570 Text.Pandoc.App.OutputSettings,

@@ -640,19 +639,19 @@ library

640 buildable: True

639 buildable: True

641

640

642executable pandoc

641executable pandoc

643− build-depends: pandoc, base >= 4.8 && < 5

642+ build-depends: pandoc,

644− if impl(ghc < 8.4)

643+ base-noprelude >= 4.8 && < 5,

645− hs-source-dirs: prelude

646− other-modules: Prelude

647− build-depends: base-compat >= 0.9

644+ base-compat >= 0.9

648 if flag(static)

645 if flag(static)

649 ld-options: -static

646 ld-options: -static

650 default-language: Haskell2010

647 default-language: Haskell2010

651 other-extensions: NoImplicitPrelude

648 other-extensions: NoImplicitPrelude

652 hs-source-dirs: .

649 hs-source-dirs: .

650+ prelude

653 main-is: pandoc.hs

651 main-is: pandoc.hs

654 buildable: True

652 buildable: True

655− other-modules: Paths_pandoc

653+ other-modules: Paths_pandoc,

654+ Prelude

656 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded

655 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded

657 -Wall -fno-warn-unused-do-bind

656 -Wall -fno-warn-unused-do-bind

658 -Wincomplete-record-updates

657 -Wincomplete-record-updates

@@ -667,19 +666,16 @@ executable pandoc

667

666

668executable trypandoc

667executable trypandoc

669 main-is: trypandoc.hs

668 main-is: trypandoc.hs

670− hs-source-dirs: trypandoc

669+ hs-source-dirs: trypandoc, prelude

671 default-language: Haskell2010

670 default-language: Haskell2010

672 other-extensions: NoImplicitPrelude

671 other-extensions: NoImplicitPrelude

672+ other-modules: Prelude

673 if flag(trypandoc)

673 if flag(trypandoc)

674− build-depends: base, aeson, pandoc,

674+ build-depends: base-noprelude, base-compat >= 0.9, aeson, pandoc,

675 text, wai-extra, wai >= 0.3, http-types

675 text, wai-extra, wai >= 0.3, http-types

676 buildable: True

676 buildable: True

677 else

677 else

678 buildable: False

678 buildable: False

679− if impl(ghc < 8.4)

680− hs-source-dirs: prelude

681− other-modules: Prelude

682− build-depends: base-compat >= 0.9

683 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded

679 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded

684 -Wall -fno-warn-unused-do-bind

680 -Wall -fno-warn-unused-do-bind

685 -Wincomplete-record-updates

681 -Wincomplete-record-updates

@@ -695,18 +691,16 @@ executable trypandoc

695benchmark weigh-pandoc

691benchmark weigh-pandoc

696 type: exitcode-stdio-1.0

692 type: exitcode-stdio-1.0

697 main-is: weigh-pandoc.hs

693 main-is: weigh-pandoc.hs

698− hs-source-dirs: benchmark

694+ hs-source-dirs: benchmark,

695+ prelude

699 build-depends: pandoc,

696 build-depends: pandoc,

700− base >= 4.8 && < 5,

697+ base-noprelude >= 4.8 && < 5,

698+ base-compat >= 0.9,

701 text,

699 text,

702 weigh >= 0.0 && < 0.1,

700 weigh >= 0.0 && < 0.1,

703 mtl >= 2.2 && < 2.3

701 mtl >= 2.2 && < 2.3

704− if impl(ghc < 8.4)

705− hs-source-dirs: prelude

706− other-modules: Prelude

707− build-depends: base-compat >= 0.9

708 default-language: Haskell2010

702 default-language: Haskell2010

709− other-extensions: NoImplicitPrelude

703+ other-modules: Prelude

710 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded

704 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded

711 -Wall -fno-warn-unused-do-bind

705 -Wall -fno-warn-unused-do-bind

712 -Wincomplete-record-updates

706 -Wincomplete-record-updates

@@ -723,8 +717,10 @@ benchmark weigh-pandoc

723test-suite test-pandoc

717test-suite test-pandoc

724 type: exitcode-stdio-1.0

718 type: exitcode-stdio-1.0

725 main-is: test-pandoc.hs

719 main-is: test-pandoc.hs

726− hs-source-dirs: test

720+ hs-source-dirs: test,

721+ prelude

727− build-depends: base >= 4.8 && < 5,

722+ build-depends: base-noprelude >= 4.8 && < 5,

723+ base-compat >= 0.9,

728 pandoc,

724 pandoc,

729 pandoc-types >= 1.20 && < 1.21,

725 pandoc-types >= 1.20 && < 1.21,

730 mtl >= 2.2 && < 2.3,

726 mtl >= 2.2 && < 2.3,

@@ -750,11 +746,8 @@ test-suite test-pandoc

750 xml >= 1.3.12 && < 1.4,

746 xml >= 1.3.12 && < 1.4,

751 doctemplates >= 0.8 && < 0.9,

747 doctemplates >= 0.8 && < 0.9,

752 Glob >= 0.7 && < 0.11

748 Glob >= 0.7 && < 0.11

753− if impl(ghc < 8.4)

754− hs-source-dirs: prelude

755− other-modules: Prelude

749+ other-modules: Prelude

756− build-depends: base-compat >= 0.9

757− other-modules: Tests.Old

750+ Tests.Old

758 Tests.Command

751 Tests.Command

759 Tests.Helpers

752 Tests.Helpers

760 Tests.Lua

753 Tests.Lua

@@ -809,7 +802,6 @@ test-suite test-pandoc

809 if os(windows)

802 if os(windows)

810 cpp-options: -D_WINDOWS

803 cpp-options: -D_WINDOWS

811 default-language: Haskell2010

804 default-language: Haskell2010

812− other-extensions: NoImplicitPrelude

813 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded

805 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded

814 -Wall -fno-warn-unused-do-bind

806 -Wall -fno-warn-unused-do-bind

815 -Wincomplete-record-updates

807 -Wincomplete-record-updates

@@ -826,19 +818,17 @@ test-suite test-pandoc

826benchmark benchmark-pandoc

818benchmark benchmark-pandoc

827 type: exitcode-stdio-1.0

819 type: exitcode-stdio-1.0

828 main-is: benchmark-pandoc.hs

820 main-is: benchmark-pandoc.hs

829− hs-source-dirs: benchmark

821+ hs-source-dirs: benchmark,

822+ prelude

830 build-depends: pandoc,

823 build-depends: pandoc,

831 time, bytestring, containers,

824 time, bytestring, containers,

832− base >= 4.8 && < 5,

825+ base-noprelude >= 4.8 && < 5,

826+ base-compat >= 0.9,

833 text >= 1.1.1.0 && < 1.3,

827 text >= 1.1.1.0 && < 1.3,

834 mtl >= 2.2 && < 2.3,

828 mtl >= 2.2 && < 2.3,

835 criterion >= 1.0 && < 1.6

829 criterion >= 1.0 && < 1.6

836− if impl(ghc < 8.4)

837− hs-source-dirs: prelude

838− other-modules: Prelude

839− build-depends: base-compat >= 0.9

840 default-language: Haskell2010

830 default-language: Haskell2010

841− other-extensions: NoImplicitPrelude

831+ other-modules: Prelude

842 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded

832 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded

843 -Wall -fno-warn-unused-do-bind

833 -Wall -fno-warn-unused-do-bind

844 -Wincomplete-record-updates

834 -Wincomplete-record-updates

prelude/Prelude.hs−2

@@ -1,6 +1,4 @@

1{-# LANGUAGE NoImplicitPrelude #-}

1{-# LANGUAGE NoImplicitPrelude #-}

2−{-# LANGUAGE PackageImports #-}

3−{-# LANGUAGE CPP #-}

4

2

5-- The intent is that this Prelude provide the API of

3-- The intent is that this Prelude provide the API of

6-- the base 4.11 Prelude in a way that is portable for

4-- the base 4.11 Prelude in a way that is portable for

src/Text/Pandoc/App.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE CPP #-}

2{-# LANGUAGE CPP #-}

4{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE ScopedTypeVariables #-}

@@ -23,7 +22,6 @@ module Text.Pandoc.App (

23 , options

22 , options

24 , applyFilters

23 , applyFilters

25 ) where

24 ) where

26−import Prelude

27import qualified Control.Exception as E

25import qualified Control.Exception as E

28import Control.Monad

26import Control.Monad

29import Control.Monad.Trans

27import Control.Monad.Trans

src/Text/Pandoc/App/CommandLineOptions.hs+2−4

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

3{-# LANGUAGE ScopedTypeVariables #-}

2{-# LANGUAGE ScopedTypeVariables #-}

4{-# LANGUAGE TupleSections #-}

3{-# LANGUAGE TupleSections #-}

@@ -22,7 +21,6 @@ module Text.Pandoc.App.CommandLineOptions (

22 , lookupHighlightStyle

21 , lookupHighlightStyle

23 , setVariable

22 , setVariable

24 ) where

23 ) where

25−import Prelude

26import Control.Monad

24import Control.Monad

27import Control.Monad.Trans

25import Control.Monad.Trans

28import Control.Monad.Except (throwError)

26import Control.Monad.Except (throwError)

@@ -32,7 +30,7 @@ import Data.Bifunctor (second)

32import Data.Char (toLower)

30import Data.Char (toLower)

33import Data.List (intercalate, sort)

31import Data.List (intercalate, sort)

34#ifdef _WINDOWS

32#ifdef _WINDOWS

35−#if MIN_VERSION_base(4,12,0)

33+#if MIN_VERSION_base_noprelude(4,12,0)

36import Data.List (isPrefixOf)

34import Data.List (isPrefixOf)

37#endif

35#endif

38#endif

36#endif

@@ -1030,7 +1028,7 @@ setVariable key val (Context ctx) = Context $ M.alter go key ctx

1030-- beginning with \\ to \\?\UNC\. -- See #5127.

1028-- beginning with \\ to \\?\UNC\. -- See #5127.

1031normalizePath :: FilePath -> FilePath

1029normalizePath :: FilePath -> FilePath

1032#ifdef _WINDOWS

1030#ifdef _WINDOWS

1033−#if MIN_VERSION_base(4,12,0)

1031+#if MIN_VERSION_base_noprelude(4,12,0)

1034normalizePath fp =

1032normalizePath fp =

1035 if "\\\\" `isPrefixOf` fp && not ("\\\\?\\" `isPrefixOf` fp)

1033 if "\\\\" `isPrefixOf` fp && not ("\\\\?\\" `isPrefixOf` fp)

1036 then "\\\\?\\UNC\\" ++ drop 2 fp

1034 then "\\\\?\\UNC\\" ++ drop 2 fp

src/Text/Pandoc/App/FormatHeuristics.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.App.FormatHeuristics

3 Module : Text.Pandoc.App.FormatHeuristics

@@ -15,7 +14,6 @@ module Text.Pandoc.App.FormatHeuristics

15 ( formatFromFilePaths

14 ( formatFromFilePaths

16 ) where

15 ) where

17

16

18−import Prelude

19import Data.Char (toLower)

17import Data.Char (toLower)

20import Data.Text (Text)

18import Data.Text (Text)

21import System.FilePath (takeExtension)

19import System.FilePath (takeExtension)

src/Text/Pandoc/App/Opt.hs−2

@@ -1,6 +1,5 @@

1{-# LANGUAGE ScopedTypeVariables #-}

1{-# LANGUAGE ScopedTypeVariables #-}

2{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

3−{-# LANGUAGE NoImplicitPrelude #-}

4{-# LANGUAGE CPP #-}

3{-# LANGUAGE CPP #-}

5{-# LANGUAGE DeriveGeneric #-}

4{-# LANGUAGE DeriveGeneric #-}

6{-# LANGUAGE TemplateHaskell #-}

5{-# LANGUAGE TemplateHaskell #-}

@@ -23,7 +22,6 @@ module Text.Pandoc.App.Opt (

23 , defaultOpts

22 , defaultOpts

24 , addMeta

23 , addMeta

25 ) where

24 ) where

26−import Prelude

27import Data.Char (isLower, toLower)

25import Data.Char (isLower, toLower)

28import GHC.Generics hiding (Meta)

26import GHC.Generics hiding (Meta)

29import Text.Pandoc.Builder (setMeta)

27import Text.Pandoc.Builder (setMeta)

src/Text/Pandoc/App/OutputSettings.hs−2

@@ -1,6 +1,5 @@

1{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

2{-# LANGUAGE FlexibleContexts #-}

2{-# LANGUAGE FlexibleContexts #-}

3−{-# LANGUAGE NoImplicitPrelude #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

5{-# LANGUAGE ScopedTypeVariables #-}

4{-# LANGUAGE ScopedTypeVariables #-}

6{-# LANGUAGE TupleSections #-}

5{-# LANGUAGE TupleSections #-}

@@ -19,7 +18,6 @@ module Text.Pandoc.App.OutputSettings

19 ( OutputSettings (..)

18 ( OutputSettings (..)

20 , optToOutputSettings

19 , optToOutputSettings

21 ) where

20 ) where

22−import Prelude

23import qualified Data.Map as M

21import qualified Data.Map as M

24import qualified Data.Text as T

22import qualified Data.Text as T

25import Text.DocTemplates (toVal, Context(..), Val(..))

23import Text.DocTemplates (toVal, Context(..), Val(..))

src/Text/Pandoc/Asciify.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Asciify

2 Module : Text.Pandoc.Asciify

4 Copyright : Copyright (C) 2013-2020 John MacFarlane

3 Copyright : Copyright (C) 2013-2020 John MacFarlane

@@ -13,7 +12,6 @@ ascii equivalents (used in constructing HTML identifiers).

13-}

12-}

14module Text.Pandoc.Asciify (toAsciiChar)

13module Text.Pandoc.Asciify (toAsciiChar)

15where

14where

16−import Prelude

17import Data.Char (isAscii)

15import Data.Char (isAscii)

18import qualified Data.Map as M

16import qualified Data.Map as M

19

17

src/Text/Pandoc/BCP47.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{- |

2{- |

4 Module : Text.Pandoc.BCP47

3 Module : Text.Pandoc.BCP47

5 Copyright : Copyright (C) 2017–2020 John MacFarlane

4 Copyright : Copyright (C) 2017–2020 John MacFarlane

@@ -18,7 +17,6 @@ module Text.Pandoc.BCP47 (

18 , renderLang

17 , renderLang

19 )

18 )

20where

19where

21−import Prelude

22import Control.Monad (guard)

20import Control.Monad (guard)

23import Data.Char (isAlphaNum, isAscii, isLetter, isLower, isUpper)

21import Data.Char (isAlphaNum, isAscii, isLetter, isLower, isUpper)

24import Text.Pandoc.Definition

22import Text.Pandoc.Definition

src/Text/Pandoc/CSS.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3Module : Text.Pandoc.CSS

2Module : Text.Pandoc.CSS

4Copyright : © 2006-2020 John MacFarlane <jgm@berkeley.edu>,

3Copyright : © 2006-2020 John MacFarlane <jgm@berkeley.edu>,

@@ -18,7 +17,6 @@ module Text.Pandoc.CSS ( foldOrElse

18 )

17 )

19where

18where

20

19

21−import Prelude

22import qualified Data.Text as T

20import qualified Data.Text as T

23import Text.Pandoc.Shared (trim)

21import Text.Pandoc.Shared (trim)

24import Text.Parsec

22import Text.Parsec

src/Text/Pandoc/CSV.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.CSV

2 Module : Text.Pandoc.CSV

4 Copyright : Copyright (C) 2017–2020 John MacFarlane <jgm@berkeley.edu>

3 Copyright : Copyright (C) 2017–2020 John MacFarlane <jgm@berkeley.edu>

@@ -17,7 +16,6 @@ module Text.Pandoc.CSV (

17 ParseError

16 ParseError

18) where

17) where

19

18

20−import Prelude

21import Control.Monad (unless, void)

19import Control.Monad (unless, void)

22import Data.Text (Text)

20import Data.Text (Text)

23import qualified Data.Text as T

21import qualified Data.Text as T

src/Text/Pandoc/Class.hs−1

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

3{-# LANGUAGE PatternGuards #-}

2{-# LANGUAGE PatternGuards #-}

4{-# LANGUAGE DeriveFunctor #-}

3{-# LANGUAGE DeriveFunctor #-}

src/Text/Pandoc/Class/PandocMonad.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

3{-# LANGUAGE FlexibleContexts #-}

2{-# LANGUAGE FlexibleContexts #-}

4{-# LANGUAGE FlexibleInstances #-}

3{-# LANGUAGE FlexibleInstances #-}

@@ -53,7 +52,6 @@ module Text.Pandoc.Class.PandocMonad

53 , makeCanonical

52 , makeCanonical

54 ) where

53 ) where

55

54

56−import Prelude

57import Codec.Archive.Zip

55import Codec.Archive.Zip

58import Control.Monad.Except (MonadError (catchError, throwError),

56import Control.Monad.Except (MonadError (catchError, throwError),

59 MonadTrans, lift, when)

57 MonadTrans, lift, when)

src/Text/Pandoc/Data.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE TemplateHaskell #-}

1{-# LANGUAGE TemplateHaskell #-}

3{- |

2{- |

4Module : Text.Pandoc.Data

3Module : Text.Pandoc.Data

@@ -13,7 +12,6 @@ Provide contents data files as Haskell values.

13-}

12-}

14module Text.Pandoc.Data (dataFiles) where

13module Text.Pandoc.Data (dataFiles) where

15

14

16−import Prelude

17import qualified Data.ByteString as B

15import qualified Data.ByteString as B

18import Data.FileEmbed

16import Data.FileEmbed

19import System.FilePath (splitDirectories)

17import System.FilePath (splitDirectories)

src/Text/Pandoc/Emoji.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Emoji

3 Module : Text.Pandoc.Emoji

@@ -12,7 +11,6 @@

12Emoji symbol lookup from canonical string identifier.

11Emoji symbol lookup from canonical string identifier.

13-}

12-}

14module Text.Pandoc.Emoji ( emojis, emojiToInline ) where

13module Text.Pandoc.Emoji ( emojis, emojiToInline ) where

15−import Prelude

16import qualified Text.Emoji as E

14import qualified Text.Emoji as E

17import Text.Pandoc.Definition (Inline (Span, Str))

15import Text.Pandoc.Definition (Inline (Span, Str))

18import Data.Text (Text)

16import Data.Text (Text)

src/Text/Pandoc/Error.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE DeriveDataTypeable #-}

1{-# LANGUAGE DeriveDataTypeable #-}

3{-# LANGUAGE DeriveGeneric #-}

2{-# LANGUAGE DeriveGeneric #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

@@ -19,7 +18,6 @@ module Text.Pandoc.Error (

19 PandocError(..),

18 PandocError(..),

20 handleError) where

19 handleError) where

21

20

22−import Prelude

23import Control.Exception (Exception)

21import Control.Exception (Exception)

24import Data.Typeable (Typeable)

22import Data.Typeable (Typeable)

25import Data.Word (Word8)

23import Data.Word (Word8)

src/Text/Pandoc/Extensions.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{-# LANGUAGE DeriveDataTypeable #-}

2{-# LANGUAGE DeriveDataTypeable #-}

4{-# LANGUAGE DeriveGeneric #-}

3{-# LANGUAGE DeriveGeneric #-}

5{-# LANGUAGE GeneralizedNewtypeDeriving #-}

4{-# LANGUAGE GeneralizedNewtypeDeriving #-}

@@ -33,7 +32,6 @@ module Text.Pandoc.Extensions ( Extension(..)

33 , githubMarkdownExtensions

32 , githubMarkdownExtensions

34 , multimarkdownExtensions )

33 , multimarkdownExtensions )

35where

34where

36−import Prelude

37import Data.Bits (clearBit, setBit, testBit, (.|.))

35import Data.Bits (clearBit, setBit, testBit, (.|.))

38import Data.Data (Data)

36import Data.Data (Data)

39import qualified Data.Text as T

37import qualified Data.Text as T

src/Text/Pandoc/Filter.hs−2

@@ -1,6 +1,5 @@

1{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

2{-# LANGUAGE DeriveGeneric #-}

2{-# LANGUAGE DeriveGeneric #-}

3−{-# LANGUAGE NoImplicitPrelude #-}

4{-# LANGUAGE TemplateHaskell #-}

3{-# LANGUAGE TemplateHaskell #-}

5{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE OverloadedStrings #-}

6{- |

5{- |

@@ -19,7 +18,6 @@ module Text.Pandoc.Filter

19 , applyFilters

18 , applyFilters

20 ) where

19 ) where

21

20

22−import Prelude

23import System.CPUTime (getCPUTime)

21import System.CPUTime (getCPUTime)

24import Data.Aeson.TH (deriveJSON, defaultOptions)

22import Data.Aeson.TH (deriveJSON, defaultOptions)

25import GHC.Generics (Generic)

23import GHC.Generics (Generic)

src/Text/Pandoc/Filter/JSON.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Filter

3 Module : Text.Pandoc.Filter

@@ -13,7 +12,6 @@ Programmatically modifications of pandoc documents via JSON filters.

13-}

12-}

14module Text.Pandoc.Filter.JSON (apply) where

13module Text.Pandoc.Filter.JSON (apply) where

15

14

16−import Prelude

17import Control.Monad (unless, when)

15import Control.Monad (unless, when)

18import Control.Monad.Trans (MonadIO (liftIO))

16import Control.Monad.Trans (MonadIO (liftIO))

19import Data.Aeson (eitherDecode', encode)

17import Data.Aeson (eitherDecode', encode)

src/Text/Pandoc/Filter/Lua.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Filter.Lua

2 Module : Text.Pandoc.Filter.Lua

4 Copyright : Copyright (C) 2006-2020 John MacFarlane

3 Copyright : Copyright (C) 2006-2020 John MacFarlane

@@ -12,7 +11,6 @@ Apply Lua filters to modify a pandoc documents programmatically.

12-}

11-}

13module Text.Pandoc.Filter.Lua (apply) where

12module Text.Pandoc.Filter.Lua (apply) where

14

13

15−import Prelude

16import Control.Exception (throw)

14import Control.Exception (throw)

17import Control.Monad ((>=>))

15import Control.Monad ((>=>))

18import qualified Data.Text as T

16import qualified Data.Text as T

src/Text/Pandoc/Filter/Path.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Filter.Path

2 Module : Text.Pandoc.Filter.Path

4 Copyright : Copyright (C) 2006-2020 John MacFarlane

3 Copyright : Copyright (C) 2006-2020 John MacFarlane

@@ -14,7 +13,6 @@ module Text.Pandoc.Filter.Path

14 ( expandFilterPath

13 ( expandFilterPath

15 ) where

14 ) where

16

15

17−import Prelude

18import Text.Pandoc.Class (PandocMonad, fileExists, getUserDataDir)

16import Text.Pandoc.Class (PandocMonad, fileExists, getUserDataDir)

19import System.FilePath ((</>), isRelative)

17import System.FilePath ((</>), isRelative)

20

18

src/Text/Pandoc/Highlighting.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Highlighting

3 Module : Text.Pandoc.Highlighting

@@ -34,7 +33,6 @@ module Text.Pandoc.Highlighting ( highlightingStyles

34 , fromListingsLanguage

33 , fromListingsLanguage

35 , toListingsLanguage

34 , toListingsLanguage

36 ) where

35 ) where

37−import Prelude

38import Control.Monad

36import Control.Monad

39import qualified Data.Map as M

37import qualified Data.Map as M

40import Data.Maybe (fromMaybe)

38import Data.Maybe (fromMaybe)

src/Text/Pandoc/Image.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings, ScopedTypeVariables, CPP #-}

1{-# LANGUAGE OverloadedStrings, ScopedTypeVariables, CPP #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -13,7 +12,6 @@ Portability : portable

13Functions for converting images.

12Functions for converting images.

14-}

13-}

15module Text.Pandoc.Image ( svgToPng ) where

14module Text.Pandoc.Image ( svgToPng ) where

16−import Prelude

17import Text.Pandoc.Options (WriterOptions(..))

15import Text.Pandoc.Options (WriterOptions(..))

18import Text.Pandoc.Process (pipeProcess)

16import Text.Pandoc.Process (pipeProcess)

19import qualified Data.ByteString.Lazy as L

17import qualified Data.ByteString.Lazy as L

src/Text/Pandoc/ImageSize.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings, ScopedTypeVariables, CPP #-}

1{-# LANGUAGE OverloadedStrings, ScopedTypeVariables, CPP #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{-# OPTIONS_GHC -fno-warn-type-defaults #-}

3{-# OPTIONS_GHC -fno-warn-type-defaults #-}

@@ -33,7 +32,6 @@ module Text.Pandoc.ImageSize ( ImageType(..)

33 , showInPixel

32 , showInPixel

34 , showFl

33 , showFl

35 ) where

34 ) where

36−import Prelude

37import Data.ByteString (ByteString, unpack)

35import Data.ByteString (ByteString, unpack)

38import qualified Data.ByteString.Char8 as B

36import qualified Data.ByteString.Char8 as B

39import qualified Data.ByteString.Lazy as BL

37import qualified Data.ByteString.Lazy as BL

src/Text/Pandoc/Logging.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE DeriveDataTypeable #-}

1{-# LANGUAGE DeriveDataTypeable #-}

3{-# LANGUAGE DeriveGeneric #-}

2{-# LANGUAGE DeriveGeneric #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

@@ -23,7 +22,6 @@ module Text.Pandoc.Logging (

23 , messageVerbosity

22 , messageVerbosity

24 ) where

23 ) where

25

24

26−import Prelude

27import Control.Monad (mzero)

25import Control.Monad (mzero)

28import Data.YAML (withStr, FromYAML(..))

26import Data.YAML (withStr, FromYAML(..))

29import Data.Aeson

27import Data.Aeson

src/Text/Pandoc/Lua.hs−1

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Lua

2 Module : Text.Pandoc.Lua

4 Copyright : Copyright © 2017–2020 Albert Krewinkel

3 Copyright : Copyright © 2017–2020 Albert Krewinkel

src/Text/Pandoc/Lua/Filter.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{- |

2{- |

4Module : Text.Pandoc.Lua.Filter

3Module : Text.Pandoc.Lua.Filter

5Copyright : © 2012–2020 John MacFarlane,

4Copyright : © 2012–2020 John MacFarlane,

@@ -17,7 +16,6 @@ module Text.Pandoc.Lua.Filter ( LuaFilterFunction

17 , walkBlocks

16 , walkBlocks

18 , module Text.Pandoc.Lua.Walk

17 , module Text.Pandoc.Lua.Walk

19 ) where

18 ) where

20−import Prelude

21import Control.Applicative ((<|>))

19import Control.Applicative ((<|>))

22import Control.Monad (mplus, (>=>))

20import Control.Monad (mplus, (>=>))

23import Control.Monad.Catch (finally)

21import Control.Monad.Catch (finally)

src/Text/Pandoc/Lua/Global.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE DeriveDataTypeable #-}

1{-# LANGUAGE DeriveDataTypeable #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{- |

2{- |

4 Module : Text.Pandoc.Lua

3 Module : Text.Pandoc.Lua

5 Copyright : Copyright © 2017-2020 Albert Krewinkel

4 Copyright : Copyright © 2017-2020 Albert Krewinkel

@@ -15,7 +14,6 @@ module Text.Pandoc.Lua.Global

15 , setGlobals

14 , setGlobals

16 ) where

15 ) where

17

16

18−import Prelude

19import Data.Data (Data)

17import Data.Data (Data)

20import Foreign.Lua (Lua, Peekable, Pushable)

18import Foreign.Lua (Lua, Peekable, Pushable)

21import Foreign.Lua.Userdata ( ensureUserdataMetatable, pushAnyWithMetatable

19import Foreign.Lua.Userdata ( ensureUserdataMetatable, pushAnyWithMetatable

src/Text/Pandoc/Lua/Init.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Lua

2 Module : Text.Pandoc.Lua

4 Copyright : Copyright © 2017-2020 Albert Krewinkel

3 Copyright : Copyright © 2017-2020 Albert Krewinkel

@@ -16,7 +15,6 @@ module Text.Pandoc.Lua.Init

16 , luaPackageParams

15 , luaPackageParams

17 ) where

16 ) where

18

17

19−import Prelude

20import Control.Monad.Trans (MonadIO (..))

18import Control.Monad.Trans (MonadIO (..))

21import Data.Data (Data, dataTypeConstrs, dataTypeOf, showConstr)

19import Data.Data (Data, dataTypeConstrs, dataTypeOf, showConstr)

22import Foreign.Lua (Lua)

20import Foreign.Lua (Lua)

src/Text/Pandoc/Lua/Marshaling/AST.hs−2

@@ -1,5 +1,4 @@

1{-# OPTIONS_GHC -fno-warn-orphans #-}

1{-# OPTIONS_GHC -fno-warn-orphans #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{-# LANGUAGE LambdaCase #-}

2{-# LANGUAGE LambdaCase #-}

4{- |

3{- |

5 Module : Text.Pandoc.Lua.Marshaling.AST

4 Module : Text.Pandoc.Lua.Marshaling.AST

@@ -17,7 +16,6 @@ module Text.Pandoc.Lua.Marshaling.AST

17 , LuaListAttributes (..)

16 , LuaListAttributes (..)

18 ) where

17 ) where

19

18

20−import Prelude

21import Control.Applicative ((<|>))

19import Control.Applicative ((<|>))

22import Foreign.Lua (Lua, Peekable, Pushable, StackIndex)

20import Foreign.Lua (Lua, Peekable, Pushable, StackIndex)

23import Text.Pandoc.Definition

21import Text.Pandoc.Definition

src/Text/Pandoc/Lua/Marshaling/AnyValue.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Lua.Marshaling.AnyValue

2 Module : Text.Pandoc.Lua.Marshaling.AnyValue

4 Copyright : © 2017-2020 Albert Krewinkel

3 Copyright : © 2017-2020 Albert Krewinkel

@@ -15,7 +14,6 @@ into HsLua.

15-}

14-}

16module Text.Pandoc.Lua.Marshaling.AnyValue (AnyValue (..)) where

15module Text.Pandoc.Lua.Marshaling.AnyValue (AnyValue (..)) where

17

16

18−import Prelude

19import Foreign.Lua (Peekable (peek), StackIndex)

17import Foreign.Lua (Peekable (peek), StackIndex)

20

18

21-- | Dummy type to allow values of arbitrary Lua type. This just wraps

19-- | Dummy type to allow values of arbitrary Lua type. This just wraps

src/Text/Pandoc/Lua/Marshaling/CommonState.hs−2

@@ -1,6 +1,5 @@

1{-# OPTIONS_GHC -fno-warn-orphans #-}

1{-# OPTIONS_GHC -fno-warn-orphans #-}

2{-# LANGUAGE LambdaCase #-}

2{-# LANGUAGE LambdaCase #-}

3−{-# LANGUAGE NoImplicitPrelude #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

5{- |

4{- |

6 Module : Text.Pandoc.Lua.Marshaling.CommonState

5 Module : Text.Pandoc.Lua.Marshaling.CommonState

@@ -14,7 +13,6 @@ Instances to marshal (push) and unmarshal (peek) the common state.

14-}

13-}

15module Text.Pandoc.Lua.Marshaling.CommonState () where

14module Text.Pandoc.Lua.Marshaling.CommonState () where

16

15

17−import Prelude

18import Foreign.Lua (Lua, Peekable, Pushable)

16import Foreign.Lua (Lua, Peekable, Pushable)

19import Foreign.Lua.Types.Peekable (reportValueOnFailure)

17import Foreign.Lua.Types.Peekable (reportValueOnFailure)

20import Foreign.Lua.Userdata (ensureUserdataMetatable, pushAnyWithMetatable,

18import Foreign.Lua.Userdata (ensureUserdataMetatable, pushAnyWithMetatable,

src/Text/Pandoc/Lua/Marshaling/Context.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# OPTIONS_GHC -fno-warn-orphans #-}

1{-# OPTIONS_GHC -fno-warn-orphans #-}

3{- |

2{- |

4 Module : Text.Pandoc.Lua.Marshaling.Context

3 Module : Text.Pandoc.Lua.Marshaling.Context

@@ -13,7 +12,6 @@ Marshaling instance for doctemplates Context and its components.

13-}

12-}

14module Text.Pandoc.Lua.Marshaling.Context () where

13module Text.Pandoc.Lua.Marshaling.Context () where

15

14

16−import Prelude

17import qualified Foreign.Lua as Lua

15import qualified Foreign.Lua as Lua

18import Foreign.Lua (Pushable)

16import Foreign.Lua (Pushable)

19import Text.DocTemplates (Context(..), Val(..), TemplateTarget)

17import Text.DocTemplates (Context(..), Val(..), TemplateTarget)

src/Text/Pandoc/Lua/Marshaling/List.hs−2

@@ -1,7 +1,6 @@

1{-# LANGUAGE DeriveDataTypeable #-}

1{-# LANGUAGE DeriveDataTypeable #-}

2{-# LANGUAGE FlexibleInstances #-}

2{-# LANGUAGE FlexibleInstances #-}

3{-# LANGUAGE MultiParamTypeClasses #-}

3{-# LANGUAGE MultiParamTypeClasses #-}

4−{-# LANGUAGE NoImplicitPrelude #-}

5{-# LANGUAGE UndecidableInstances #-}

4{-# LANGUAGE UndecidableInstances #-}

6{- |

5{- |

7Module : Text.Pandoc.Lua.Marshaling.List

6Module : Text.Pandoc.Lua.Marshaling.List

@@ -17,7 +16,6 @@ module Text.Pandoc.Lua.Marshaling.List

17 ( List (..)

16 ( List (..)

18 ) where

17 ) where

19

18

20−import Prelude

21import Data.Data (Data)

19import Data.Data (Data)

22import Foreign.Lua (Peekable, Pushable)

20import Foreign.Lua (Peekable, Pushable)

23import Text.Pandoc.Walk (Walkable (..))

21import Text.Pandoc.Walk (Walkable (..))

src/Text/Pandoc/Lua/Marshaling/MediaBag.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Lua.Marshaling.MediaBag

2 Module : Text.Pandoc.Lua.Marshaling.MediaBag

4 Copyright : © 2012-2020 John MacFarlane

3 Copyright : © 2012-2020 John MacFarlane

@@ -11,7 +10,6 @@ Instances to marshal (push) and unmarshal (peek) media data.

11-}

10-}

12module Text.Pandoc.Lua.Marshaling.MediaBag (pushIterator) where

11module Text.Pandoc.Lua.Marshaling.MediaBag (pushIterator) where

13

12

14−import Prelude

15import Foreign.Ptr (Ptr)

13import Foreign.Ptr (Ptr)

16import Foreign.StablePtr (StablePtr, deRefStablePtr, newStablePtr)

14import Foreign.StablePtr (StablePtr, deRefStablePtr, newStablePtr)

17import Foreign.Lua (Lua, NumResults, Peekable, Pushable, StackIndex)

15import Foreign.Lua (Lua, NumResults, Peekable, Pushable, StackIndex)

src/Text/Pandoc/Lua/Marshaling/ReaderOptions.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE LambdaCase #-}

1{-# LANGUAGE LambdaCase #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE ScopedTypeVariables #-}

5{-# OPTIONS_GHC -fno-warn-orphans #-}

4{-# OPTIONS_GHC -fno-warn-orphans #-}

@@ -16,7 +15,6 @@ Marshaling instance for ReaderOptions and its components.

16-}

15-}

17module Text.Pandoc.Lua.Marshaling.ReaderOptions () where

16module Text.Pandoc.Lua.Marshaling.ReaderOptions () where

18

17

19−import Prelude

20import Data.Data (showConstr, toConstr)

18import Data.Data (showConstr, toConstr)

21import Foreign.Lua (Lua, Pushable)

19import Foreign.Lua (Lua, Pushable)

22import Text.Pandoc.Extensions (Extensions)

20import Text.Pandoc.Extensions (Extensions)

src/Text/Pandoc/Lua/Marshaling/Version.hs−2

@@ -1,6 +1,5 @@

1{-# OPTIONS_GHC -fno-warn-orphans #-}

1{-# OPTIONS_GHC -fno-warn-orphans #-}

2{-# LANGUAGE LambdaCase #-}

2{-# LANGUAGE LambdaCase #-}

3−{-# LANGUAGE NoImplicitPrelude #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

5{-# LANGUAGE ScopedTypeVariables #-}

4{-# LANGUAGE ScopedTypeVariables #-}

6{- |

5{- |

@@ -20,7 +19,6 @@ module Text.Pandoc.Lua.Marshaling.Version

20 )

19 )

21 where

20 where

22

21

23−import Prelude

24import Data.Text (Text)

22import Data.Text (Text)

25import Data.Maybe (fromMaybe)

23import Data.Maybe (fromMaybe)

26import Data.Version (Version (..), makeVersion, parseVersion, showVersion)

24import Data.Version (Version (..), makeVersion, parseVersion, showVersion)

src/Text/Pandoc/Lua/Module/MediaBag.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Lua.Module.MediaBag

3 Module : Text.Pandoc.Lua.Module.MediaBag

@@ -14,7 +13,6 @@ module Text.Pandoc.Lua.Module.MediaBag

14 ( pushModule

13 ( pushModule

15 ) where

14 ) where

16

15

17−import Prelude

18import Control.Monad (zipWithM_)

16import Control.Monad (zipWithM_)

19import Foreign.Lua (Lua, NumResults, Optional, liftIO)

17import Foreign.Lua (Lua, NumResults, Optional, liftIO)

20import Text.Pandoc.Class (CommonState (..), fetchItem, putCommonState,

18import Text.Pandoc.Class (CommonState (..), fetchItem, putCommonState,

src/Text/Pandoc/Lua/Module/Pandoc.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{- |

3{- |

5 Module : Text.Pandoc.Lua.Module.Pandoc

4 Module : Text.Pandoc.Lua.Module.Pandoc

@@ -15,7 +14,6 @@ module Text.Pandoc.Lua.Module.Pandoc

15 ( pushModule

14 ( pushModule

16 ) where

15 ) where

17

16

18−import Prelude

19import Control.Monad (when)

17import Control.Monad (when)

20import Control.Monad.Except (throwError)

18import Control.Monad.Except (throwError)

21import Data.Default (Default (..))

19import Data.Default (Default (..))

src/Text/Pandoc/Lua/Module/System.hs−1

@@ -12,7 +12,6 @@ module Text.Pandoc.Lua.Module.System

12 ( pushModule

12 ( pushModule

13 ) where

13 ) where

14

14

15−import Prelude

16import Foreign.Lua (Lua, NumResults)

15import Foreign.Lua (Lua, NumResults)

17import Foreign.Lua.Module.System (arch, env, getwd, os,

16import Foreign.Lua.Module.System (arch, env, getwd, os,

18 with_env, with_tmpdir, with_wd)

17 with_env, with_tmpdir, with_wd)

src/Text/Pandoc/Lua/Module/Types.hs−1

@@ -12,7 +12,6 @@ module Text.Pandoc.Lua.Module.Types

12 ( pushModule

12 ( pushModule

13 ) where

13 ) where

14

14

15−import Prelude

16import Data.Version (Version)

15import Data.Version (Version)

17import Foreign.Lua (Lua, NumResults)

16import Foreign.Lua (Lua, NumResults)

18import Text.Pandoc.Definition

17import Text.Pandoc.Definition

src/Text/Pandoc/Lua/Module/Utils.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Lua.Module.Utils

2 Module : Text.Pandoc.Lua.Module.Utils

4 Copyright : Copyright © 2017-2020 Albert Krewinkel

3 Copyright : Copyright © 2017-2020 Albert Krewinkel

@@ -13,7 +12,6 @@ module Text.Pandoc.Lua.Module.Utils

13 ( pushModule

12 ( pushModule

14 ) where

13 ) where

15

14

16−import Prelude

17import Control.Applicative ((<|>))

15import Control.Applicative ((<|>))

18import Data.Default (def)

16import Data.Default (def)

19import Data.Version (Version)

17import Data.Version (Version)

src/Text/Pandoc/Lua/Packages.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{-# LANGUAGE ScopedTypeVariables #-}

2{-# LANGUAGE ScopedTypeVariables #-}

4{- |

3{- |

5 Module : Text.Pandoc.Lua.Packages

4 Module : Text.Pandoc.Lua.Packages

@@ -16,7 +15,6 @@ module Text.Pandoc.Lua.Packages

16 , installPandocPackageSearcher

15 , installPandocPackageSearcher

17 ) where

16 ) where

18

17

19−import Prelude

20import Control.Monad (forM_)

18import Control.Monad (forM_)

21import Data.ByteString (ByteString)

19import Data.ByteString (ByteString)

22import Foreign.Lua (Lua, NumResults, liftIO)

20import Foreign.Lua (Lua, NumResults, liftIO)

src/Text/Pandoc/Lua/Util.hs−2

@@ -1,6 +1,5 @@

1{-# LANGUAGE FlexibleInstances #-}

1{-# LANGUAGE FlexibleInstances #-}

2{-# LANGUAGE LambdaCase #-}

2{-# LANGUAGE LambdaCase #-}

3−{-# LANGUAGE NoImplicitPrelude #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

5{- |

4{- |

6 Module : Text.Pandoc.Lua.Util

5 Module : Text.Pandoc.Lua.Util

@@ -27,7 +26,6 @@ module Text.Pandoc.Lua.Util

27 , dofileWithTraceback

26 , dofileWithTraceback

28 ) where

27 ) where

29

28

30−import Prelude

31import Control.Monad (unless, when)

29import Control.Monad (unless, when)

32import Foreign.Lua ( Lua, NumArgs, NumResults, Peekable, Pushable, StackIndex

30import Foreign.Lua ( Lua, NumArgs, NumResults, Peekable, Pushable, StackIndex

33 , Status, ToHaskellFunction )

31 , Status, ToHaskellFunction )

src/Text/Pandoc/Lua/Walk.hs−2

@@ -1,7 +1,6 @@

1{-# LANGUAGE DeriveTraversable #-}

1{-# LANGUAGE DeriveTraversable #-}

2{-# LANGUAGE FlexibleContexts #-}

2{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE FlexibleInstances #-}

3{-# LANGUAGE FlexibleInstances #-}

4−{-# LANGUAGE NoImplicitPrelude #-}

5{-# LANGUAGE MultiParamTypeClasses #-}

4{-# LANGUAGE MultiParamTypeClasses #-}

6{- |

5{- |

7Module : Text.Pandoc.Lua.Walk

6Module : Text.Pandoc.Lua.Walk

@@ -18,7 +17,6 @@ module Text.Pandoc.Lua.Walk

18 )

17 )

19where

18where

20

19

21−import Prelude

22import Control.Monad ((<=<))

20import Control.Monad ((<=<))

23import Text.Pandoc.Definition

21import Text.Pandoc.Definition

24import Text.Pandoc.Walk

22import Text.Pandoc.Walk

src/Text/Pandoc/MIME.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.MIME

3 Module : Text.Pandoc.MIME

@@ -13,7 +12,6 @@ Mime type lookup.

13-}

12-}

14module Text.Pandoc.MIME ( MimeType, getMimeType, getMimeTypeDef,

13module Text.Pandoc.MIME ( MimeType, getMimeType, getMimeTypeDef,

15 extensionFromMimeType, mediaCategory ) where

14 extensionFromMimeType, mediaCategory ) where

16−import Prelude

17import Data.List (isPrefixOf, isSuffixOf)

15import Data.List (isPrefixOf, isSuffixOf)

18import qualified Data.Map as M

16import qualified Data.Map as M

19import qualified Data.Text as T

17import qualified Data.Text as T

src/Text/Pandoc/MediaBag.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

3{-# LANGUAGE DeriveDataTypeable #-}

2{-# LANGUAGE DeriveDataTypeable #-}

4{-# LANGUAGE GeneralizedNewtypeDeriving #-}

3{-# LANGUAGE GeneralizedNewtypeDeriving #-}

@@ -22,7 +21,6 @@ module Text.Pandoc.MediaBag (

22 mediaDirectory,

21 mediaDirectory,

23 mediaItems

22 mediaItems

24 ) where

23 ) where

25−import Prelude

26import qualified Data.ByteString.Lazy as BL

24import qualified Data.ByteString.Lazy as BL

27import Data.Data (Data)

25import Data.Data (Data)

28import qualified Data.Map as M

26import qualified Data.Map as M

src/Text/Pandoc/Options.hs−2

@@ -1,7 +1,6 @@

1{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

2{-# LANGUAGE DeriveDataTypeable #-}

2{-# LANGUAGE DeriveDataTypeable #-}

3{-# LANGUAGE DeriveGeneric #-}

3{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE NoImplicitPrelude #-}

5{-# LANGUAGE TemplateHaskell #-}

4{-# LANGUAGE TemplateHaskell #-}

6{-# LANGUAGE OverloadedStrings #-}

5{-# LANGUAGE OverloadedStrings #-}

7{- |

6{- |

@@ -33,7 +32,6 @@ module Text.Pandoc.Options ( module Text.Pandoc.Extensions

33 , defaultMathJaxURL

32 , defaultMathJaxURL

34 , defaultKaTeXURL

33 , defaultKaTeXURL

35 ) where

34 ) where

36−import Prelude

37import Control.Applicative ((<|>))

35import Control.Applicative ((<|>))

38import Data.Char (toLower)

36import Data.Char (toLower)

39import Data.Maybe (fromMaybe)

37import Data.Maybe (fromMaybe)

src/Text/Pandoc/PDF.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE ScopedTypeVariables #-}

@@ -15,7 +14,6 @@ Conversion of LaTeX documents to PDF.

15-}

14-}

16module Text.Pandoc.PDF ( makePDF ) where

15module Text.Pandoc.PDF ( makePDF ) where

17

16

18−import Prelude

19import qualified Codec.Picture as JP

17import qualified Codec.Picture as JP

20import qualified Control.Exception as E

18import qualified Control.Exception as E

21import Control.Monad (when)

19import Control.Monad (when)

src/Text/Pandoc/Parsing.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

3{-# LANGUAGE ExplicitForAll #-}

2{-# LANGUAGE ExplicitForAll #-}

4{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE FlexibleContexts #-}

@@ -186,7 +185,6 @@ module Text.Pandoc.Parsing ( take1WhileP,

186 )

185 )

187where

186where

188

187

189−import Prelude

190import Control.Monad.Identity

188import Control.Monad.Identity

191import Control.Monad.Reader

189import Control.Monad.Reader

192import Data.Char (chr, isAlphaNum, isAscii, isAsciiUpper,

190import Data.Char (chr, isAlphaNum, isAscii, isAsciiUpper,

src/Text/Pandoc/Process.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Process

2 Module : Text.Pandoc.Process

4 Copyright : Copyright (C) 2013-2020 John MacFarlane

3 Copyright : Copyright (C) 2013-2020 John MacFarlane

@@ -12,7 +11,6 @@ ByteString variant of 'readProcessWithExitCode'.

12-}

11-}

13module Text.Pandoc.Process (pipeProcess)

12module Text.Pandoc.Process (pipeProcess)

14where

13where

15−import Prelude

16import Control.Concurrent (MVar, forkIO, killThread, newEmptyMVar, putMVar,

14import Control.Concurrent (MVar, forkIO, killThread, newEmptyMVar, putMVar,

17 takeMVar)

15 takeMVar)

18import Control.Exception (SomeException (..))

16import Control.Exception (SomeException (..))

src/Text/Pandoc/Readers.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE MonoLocalBinds #-}

1{-# LANGUAGE MonoLocalBinds #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{-# LANGUAGE ScopedTypeVariables #-}

2{-# LANGUAGE ScopedTypeVariables #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

5{- |

4{- |

@@ -57,7 +56,6 @@ module Text.Pandoc.Readers

57 , getDefaultExtensions

56 , getDefaultExtensions

58 ) where

57 ) where

59

58

60−import Prelude

61import Control.Monad (unless)

59import Control.Monad (unless)

62import Control.Monad.Except (throwError)

60import Control.Monad.Except (throwError)

63import Data.Aeson

61import Data.Aeson

src/Text/Pandoc/Readers/CSV.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

3

2

4{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE ScopedTypeVariables #-}

@@ -14,7 +13,6 @@

14Conversion from CSV to a 'Pandoc' table.

13Conversion from CSV to a 'Pandoc' table.

15-}

14-}

16module Text.Pandoc.Readers.CSV ( readCSV ) where

15module Text.Pandoc.Readers.CSV ( readCSV ) where

17−import Prelude

18import Data.Text (Text)

16import Data.Text (Text)

19import qualified Data.Text as T

17import qualified Data.Text as T

20import Text.Pandoc.CSV (parseCSV, defaultCSVOptions)

18import Text.Pandoc.CSV (parseCSV, defaultCSVOptions)

src/Text/Pandoc/Readers/CommonMark.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -17,7 +16,6 @@ CommonMark is a strongly specified variant of Markdown: http://commonmark.org.

17module Text.Pandoc.Readers.CommonMark (readCommonMark)

16module Text.Pandoc.Readers.CommonMark (readCommonMark)

18where

17where

19

18

20−import Prelude

21import CMarkGFM

19import CMarkGFM

22import Control.Monad.State

20import Control.Monad.State

23import qualified Data.Set as Set

21import qualified Data.Set as Set

src/Text/Pandoc/Readers/Creole.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.Creole

3 Module : Text.Pandoc.Readers.Creole

@@ -14,7 +13,6 @@ Conversion of creole text to 'Pandoc' document.

14module Text.Pandoc.Readers.Creole ( readCreole

13module Text.Pandoc.Readers.Creole ( readCreole

15 ) where

14 ) where

16

15

17−import Prelude

18import Control.Monad.Except (guard, liftM2, throwError)

16import Control.Monad.Except (guard, liftM2, throwError)

19import qualified Data.Foldable as F

17import qualified Data.Foldable as F

20import Data.Maybe (fromMaybe)

18import Data.Maybe (fromMaybe)

src/Text/Pandoc/Readers/DocBook.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.DocBook

3 Module : Text.Pandoc.Readers.DocBook

@@ -12,7 +11,6 @@

12Conversion of DocBook XML to 'Pandoc' document.

11Conversion of DocBook XML to 'Pandoc' document.

13-}

12-}

14module Text.Pandoc.Readers.DocBook ( readDocBook ) where

13module Text.Pandoc.Readers.DocBook ( readDocBook ) where

15−import Prelude

16import Control.Monad.State.Strict

14import Control.Monad.State.Strict

17import Data.Char (isSpace, toUpper)

15import Data.Char (isSpace, toUpper)

18import Data.Default

16import Data.Default

src/Text/Pandoc/Readers/Docx.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE PatternGuards #-}

3{-# LANGUAGE PatternGuards #-}

@@ -60,7 +59,6 @@ module Text.Pandoc.Readers.Docx

60 ( readDocx

59 ( readDocx

61 ) where

60 ) where

62

61

63−import Prelude

64import Codec.Archive.Zip

62import Codec.Archive.Zip

65import Control.Monad.Reader

63import Control.Monad.Reader

66import Control.Monad.State.Strict

64import Control.Monad.State.Strict

src/Text/Pandoc/Readers/Docx/Combine.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleInstances #-}

1{-# LANGUAGE FlexibleInstances #-}

3{-# LANGUAGE PatternGuards #-}

2{-# LANGUAGE PatternGuards #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

@@ -59,7 +58,6 @@ module Text.Pandoc.Readers.Docx.Combine ( smushInlines

59 )

58 )

60 where

59 where

61

60

62−import Prelude

63import Data.List

61import Data.List

64import Data.Sequence (ViewL (..), ViewR (..), viewl, viewr, (><), (|>))

62import Data.Sequence (ViewL (..), ViewR (..), viewl, viewr, (><), (|>))

65import qualified Data.Sequence as Seq (null)

63import qualified Data.Sequence as Seq (null)

src/Text/Pandoc/Readers/Docx/Fields.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.Docx.Fields

3 Module : Text.Pandoc.Readers.Docx.Fields

@@ -16,7 +15,6 @@ module Text.Pandoc.Readers.Docx.Fields ( FieldInfo(..)

16 , parseFieldInfo

15 , parseFieldInfo

17 ) where

16 ) where

18

17

19−import Prelude

20import Data.Functor (($>), void)

18import Data.Functor (($>), void)

21import qualified Data.Text as T

19import qualified Data.Text as T

22import Text.Parsec

20import Text.Parsec

src/Text/Pandoc/Readers/Docx/Lists.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.Docx.Lists

3 Module : Text.Pandoc.Readers.Docx.Lists

@@ -18,7 +17,6 @@ module Text.Pandoc.Readers.Docx.Lists ( blocksToBullets

18 , listParagraphStyles

17 , listParagraphStyles

19 ) where

18 ) where

20

19

21−import Prelude

22import Data.List

20import Data.List

23import Data.Maybe

21import Data.Maybe

24import Data.String (fromString)

22import Data.String (fromString)

src/Text/Pandoc/Readers/Docx/Parse.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE ViewPatterns #-}

1{-# LANGUAGE ViewPatterns #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{- |

3{- |

@@ -52,7 +51,6 @@ module Text.Pandoc.Readers.Docx.Parse ( Docx(..)

52 , constructBogusParStyleData

51 , constructBogusParStyleData

53 , leftBiasedMergeRunStyle

52 , leftBiasedMergeRunStyle

54 ) where

53 ) where

55−import Prelude

56import Text.Pandoc.Readers.Docx.Parse.Styles

54import Text.Pandoc.Readers.Docx.Parse.Styles

57import Codec.Archive.Zip

55import Codec.Archive.Zip

58import Control.Applicative ((<|>))

56import Control.Applicative ((<|>))

src/Text/Pandoc/Readers/Docx/Parse/Styles.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleInstances #-}

1{-# LANGUAGE FlexibleInstances #-}

3{-# LANGUAGE FlexibleContexts #-}

2{-# LANGUAGE FlexibleContexts #-}

4{-# LANGUAGE TypeFamilies #-}

3{-# LANGUAGE TypeFamilies #-}

@@ -43,7 +42,6 @@ module Text.Pandoc.Readers.Docx.Parse.Styles (

43 , defaultRunStyle

42 , defaultRunStyle

44 , checkOnOff

43 , checkOnOff

45 ) where

44 ) where

46−import Prelude

47import Codec.Archive.Zip

45import Codec.Archive.Zip

48import Control.Applicative ((<|>))

46import Control.Applicative ((<|>))

49import Control.Monad.Except

47import Control.Monad.Except

src/Text/Pandoc/Readers/Docx/Util.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Readers.Docx.StyleMaps

2 Module : Text.Pandoc.Readers.Docx.StyleMaps

4 Copyright : © 2014-2020 Jesse Rosenthal <jrosenthal@jhu.edu>,

3 Copyright : © 2014-2020 Jesse Rosenthal <jrosenthal@jhu.edu>,

@@ -24,7 +23,6 @@ module Text.Pandoc.Readers.Docx.Util (

24 , findAttrTextByName

23 , findAttrTextByName

25 ) where

24 ) where

26

25

27−import Prelude

28import Data.Maybe (mapMaybe)

26import Data.Maybe (mapMaybe)

29import qualified Data.Text as T

27import qualified Data.Text as T

30import Text.XML.Light

28import Text.XML.Light

src/Text/Pandoc/Readers/DokuWiki.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE TupleSections #-}

3{-# LANGUAGE TupleSections #-}

5{-# LANGUAGE ViewPatterns #-}

4{-# LANGUAGE ViewPatterns #-}

@@ -16,7 +15,6 @@ Conversion of DokuWiki text to 'Pandoc' document.

16-}

15-}

17module Text.Pandoc.Readers.DokuWiki (readDokuWiki) where

16module Text.Pandoc.Readers.DokuWiki (readDokuWiki) where

18

17

19−import Prelude

20import Control.Monad

18import Control.Monad

21import Control.Monad.Except (throwError)

19import Control.Monad.Except (throwError)

22import Data.Char (isAlphaNum, isDigit)

20import Data.Char (isAlphaNum, isDigit)

src/Text/Pandoc/Readers/EPUB.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE TupleSections #-}

1{-# LANGUAGE TupleSections #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

@@ -18,7 +17,6 @@ module Text.Pandoc.Readers.EPUB

18 (readEPUB)

17 (readEPUB)

19 where

18 where

20

19

21−import Prelude

22import Codec.Archive.Zip (Archive (..), Entry, findEntryByPath, fromEntry,

20import Codec.Archive.Zip (Archive (..), Entry, findEntryByPath, fromEntry,

23 toArchiveOrFail)

21 toArchiveOrFail)

24import Control.DeepSeq (NFData, deepseq)

22import Control.DeepSeq (NFData, deepseq)

src/Text/Pandoc/Readers/FB2.hs−1

@@ -23,7 +23,6 @@ TODO:

23-}

23-}

24

24

25module Text.Pandoc.Readers.FB2 ( readFB2 ) where

25module Text.Pandoc.Readers.FB2 ( readFB2 ) where

26−import Prelude

27import Control.Monad.Except (throwError)

26import Control.Monad.Except (throwError)

28import Control.Monad.State.Strict

27import Control.Monad.State.Strict

29import Data.ByteString.Lazy.Char8 ( pack )

28import Data.ByteString.Lazy.Char8 ( pack )

src/Text/Pandoc/Readers/HTML.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE LambdaCase #-}

1{-# LANGUAGE LambdaCase #-}

3{-# LANGUAGE FlexibleContexts #-}

2{-# LANGUAGE FlexibleContexts #-}

4{-# LANGUAGE FlexibleInstances #-}

3{-# LANGUAGE FlexibleInstances #-}

@@ -26,7 +25,6 @@ module Text.Pandoc.Readers.HTML ( readHtml

26 , isCommentTag

25 , isCommentTag

27 ) where

26 ) where

28

27

29−import Prelude

30import Control.Applicative ((<|>))

28import Control.Applicative ((<|>))

31import Control.Arrow (first)

29import Control.Arrow (first)

32import Control.Monad (guard, mplus, msum, mzero, unless, void)

30import Control.Monad (guard, mplus, msum, mzero, unless, void)

src/Text/Pandoc/Readers/Haddock.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{- |

3{- |

@@ -16,7 +15,6 @@ module Text.Pandoc.Readers.Haddock

16 ( readHaddock

15 ( readHaddock

17 ) where

16 ) where

18

17

19−import Prelude

20import Control.Monad.Except (throwError)

18import Control.Monad.Except (throwError)

21import Data.List (intersperse)

19import Data.List (intersperse)

22import Data.Maybe (fromMaybe)

20import Data.Maybe (fromMaybe)

src/Text/Pandoc/Readers/Ipynb.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE LambdaCase #-}

1{-# LANGUAGE LambdaCase #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE FlexibleContexts #-}

@@ -16,7 +15,6 @@ Ipynb (Jupyter notebook JSON format) reader for pandoc.

16-}

15-}

17module Text.Pandoc.Readers.Ipynb ( readIpynb )

16module Text.Pandoc.Readers.Ipynb ( readIpynb )

18where

17where

19−import Prelude

20import Data.Char (isDigit)

18import Data.Char (isDigit)

21import Data.Maybe (fromMaybe)

19import Data.Maybe (fromMaybe)

22import Data.Digest.Pure.SHA (sha1, showDigest)

20import Data.Digest.Pure.SHA (sha1, showDigest)

src/Text/Pandoc/Readers/JATS.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE TupleSections #-}

1{-# LANGUAGE TupleSections #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{- |

3{- |

@@ -14,7 +13,6 @@ Conversion of JATS XML to 'Pandoc' document.

14-}

13-}

15

14

16module Text.Pandoc.Readers.JATS ( readJATS ) where

15module Text.Pandoc.Readers.JATS ( readJATS ) where

17−import Prelude

18import Control.Monad.State.Strict

16import Control.Monad.State.Strict

19import Data.Char (isDigit, isSpace, toUpper)

17import Data.Char (isDigit, isSpace, toUpper)

20import Data.Default

18import Data.Default

src/Text/Pandoc/Readers/Jira.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE LambdaCase #-}

1{-# LANGUAGE LambdaCase #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{- |

3{- |

@@ -12,7 +11,6 @@ Conversion of jira wiki formatted plain text to 'Pandoc' document.

12-}

11-}

13module Text.Pandoc.Readers.Jira ( readJira ) where

12module Text.Pandoc.Readers.Jira ( readJira ) where

14

13

15−import Prelude

16import Control.Monad.Except (throwError)

14import Control.Monad.Except (throwError)

17import Data.Text (Text, append, pack, singleton, unpack)

15import Data.Text (Text, append, pack, singleton, unpack)

18import Text.HTML.TagSoup.Entity (lookupEntity)

16import Text.HTML.TagSoup.Entity (lookupEntity)

src/Text/Pandoc/Readers/LaTeX.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{-# LANGUAGE FlexibleInstances #-}

2{-# LANGUAGE FlexibleInstances #-}

4{-# LANGUAGE MultiParamTypeClasses #-}

3{-# LANGUAGE MultiParamTypeClasses #-}

5{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE OverloadedStrings #-}

@@ -27,7 +26,6 @@ module Text.Pandoc.Readers.LaTeX ( readLaTeX,

27 untokenize

26 untokenize

28 ) where

27 ) where

29

28

30−import Prelude

31import Control.Applicative (many, optional, (<|>))

29import Control.Applicative (many, optional, (<|>))

32import Control.Monad

30import Control.Monad

33import Control.Monad.Except (throwError)

31import Control.Monad.Except (throwError)

src/Text/Pandoc/Readers/LaTeX/Lang.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.LaTeX.Lang

3 Module : Text.Pandoc.Readers.LaTeX.Lang

@@ -17,7 +16,6 @@ module Text.Pandoc.Readers.LaTeX.Lang

17 , babelLangToBCP47

16 , babelLangToBCP47

18 )

17 )

19where

18where

20−import Prelude

21import qualified Data.Map as M

19import qualified Data.Map as M

22import qualified Data.Text as T

20import qualified Data.Text as T

23import Text.Pandoc.BCP47 (Lang(..))

21import Text.Pandoc.BCP47 (Lang(..))

src/Text/Pandoc/Readers/LaTeX/Parsing.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleInstances #-}

1{-# LANGUAGE FlexibleInstances #-}

3{-# LANGUAGE MultiParamTypeClasses #-}

2{-# LANGUAGE MultiParamTypeClasses #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

@@ -69,7 +68,6 @@ module Text.Pandoc.Readers.LaTeX.Parsing

69 , withRaw

68 , withRaw

70 ) where

69 ) where

71

70

72−import Prelude

73import Control.Applicative (many, (<|>))

71import Control.Applicative (many, (<|>))

74import Control.Monad

72import Control.Monad

75import Control.Monad.Except (throwError)

73import Control.Monad.Except (throwError)

src/Text/Pandoc/Readers/LaTeX/Types.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Readers.LaTeX.Types

2 Module : Text.Pandoc.Readers.LaTeX.Types

4 Copyright : Copyright (C) 2017-2020 John MacFarlane

3 Copyright : Copyright (C) 2017-2020 John MacFarlane

@@ -18,7 +17,6 @@ module Text.Pandoc.Readers.LaTeX.Types ( Tok(..)

18 , SourcePos

17 , SourcePos

19 )

18 )

20where

19where

21−import Prelude

22import Data.Text (Text)

20import Data.Text (Text)

23import Text.Parsec.Pos (SourcePos)

21import Text.Parsec.Pos (SourcePos)

24

22

src/Text/Pandoc/Readers/Man.hs−1

@@ -14,7 +14,6 @@ Conversion of man to 'Pandoc' document.

14-}

14-}

15module Text.Pandoc.Readers.Man (readMan) where

15module Text.Pandoc.Readers.Man (readMan) where

16

16

17−import Prelude

18import Data.Char (toLower)

17import Data.Char (toLower)

19import Data.Default (Default)

18import Data.Default (Default)

20import Control.Monad (liftM, mzero, guard, void)

19import Control.Monad (liftM, mzero, guard, void)

src/Text/Pandoc/Readers/Markdown.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE RelaxedPolyRec #-}

1{-# LANGUAGE RelaxedPolyRec #-}

3{-# LANGUAGE ScopedTypeVariables #-}

2{-# LANGUAGE ScopedTypeVariables #-}

4{-# LANGUAGE TupleSections #-}

3{-# LANGUAGE TupleSections #-}

@@ -17,7 +16,6 @@ Conversion of markdown-formatted plain text to 'Pandoc' document.

17-}

16-}

18module Text.Pandoc.Readers.Markdown ( readMarkdown, yamlToMeta ) where

17module Text.Pandoc.Readers.Markdown ( readMarkdown, yamlToMeta ) where

19

18

20−import Prelude

21import Control.Monad

19import Control.Monad

22import Control.Monad.Except (throwError)

20import Control.Monad.Except (throwError)

23import Data.Char (isAlphaNum, isPunctuation, isSpace)

21import Data.Char (isAlphaNum, isPunctuation, isSpace)

src/Text/Pandoc/Readers/MediaWiki.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE RelaxedPolyRec #-}

2{-# LANGUAGE RelaxedPolyRec #-}

4-- RelaxedPolyRec needed for inlinesBetween on GHC < 7

3-- RelaxedPolyRec needed for inlinesBetween on GHC < 7

@@ -20,7 +19,6 @@ _ parse templates?

20-}

19-}

21module Text.Pandoc.Readers.MediaWiki ( readMediaWiki ) where

20module Text.Pandoc.Readers.MediaWiki ( readMediaWiki ) where

22

21

23−import Prelude

24import Control.Monad

22import Control.Monad

25import Control.Monad.Except (throwError)

23import Control.Monad.Except (throwError)

26import Data.Char (isDigit, isSpace)

24import Data.Char (isDigit, isSpace)

src/Text/Pandoc/Readers/Metadata.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE RelaxedPolyRec #-}

1{-# LANGUAGE RelaxedPolyRec #-}

3{-# LANGUAGE ScopedTypeVariables #-}

2{-# LANGUAGE ScopedTypeVariables #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

@@ -15,7 +14,6 @@ Parse YAML/JSON metadata to 'Pandoc' 'Meta'.

15-}

14-}

16module Text.Pandoc.Readers.Metadata ( yamlBsToMeta ) where

15module Text.Pandoc.Readers.Metadata ( yamlBsToMeta ) where

17

16

18−import Prelude

19import Control.Monad

17import Control.Monad

20import Control.Monad.Except (throwError)

18import Control.Monad.Except (throwError)

21import qualified Data.ByteString.Lazy as BL

19import qualified Data.ByteString.Lazy as BL

src/Text/Pandoc/Readers/Muse.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE TupleSections #-}

2{-# LANGUAGE TupleSections #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

@@ -19,7 +18,6 @@ TODO:

19-}

18-}

20module Text.Pandoc.Readers.Muse (readMuse) where

19module Text.Pandoc.Readers.Muse (readMuse) where

21

20

22−import Prelude

23import Control.Monad

21import Control.Monad

24import Control.Monad.Reader

22import Control.Monad.Reader

25import Control.Monad.Except (throwError)

23import Control.Monad.Except (throwError)

src/Text/Pandoc/Readers/Native.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.Native

3 Module : Text.Pandoc.Readers.Native

@@ -14,7 +13,6 @@ Conversion of a string representation of a pandoc type (@Pandoc@,

14-}

13-}

15module Text.Pandoc.Readers.Native ( readNative ) where

14module Text.Pandoc.Readers.Native ( readNative ) where

16

15

17−import Prelude

18import Text.Pandoc.Definition

16import Text.Pandoc.Definition

19import Text.Pandoc.Options (ReaderOptions)

17import Text.Pandoc.Options (ReaderOptions)

20import Text.Pandoc.Shared (safeRead)

18import Text.Pandoc.Shared (safeRead)

src/Text/Pandoc/Readers/OPML.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.OPML

3 Module : Text.Pandoc.Readers.OPML

@@ -13,7 +12,6 @@ Conversion of OPML to 'Pandoc' document.

13-}

12-}

14

13

15module Text.Pandoc.Readers.OPML ( readOPML ) where

14module Text.Pandoc.Readers.OPML ( readOPML ) where

16−import Prelude

17import Control.Monad.State.Strict

15import Control.Monad.State.Strict

18import Data.Char (toUpper)

16import Data.Char (toUpper)

19import Data.Default

17import Data.Default

src/Text/Pandoc/Readers/Odt.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE PatternGuards #-}

1{-# LANGUAGE PatternGuards #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{- |

3{- |

@@ -15,7 +14,6 @@ Entry point to the odt reader.

15

14

16module Text.Pandoc.Readers.Odt ( readOdt ) where

15module Text.Pandoc.Readers.Odt ( readOdt ) where

17

16

18−import Prelude

19import Codec.Archive.Zip

17import Codec.Archive.Zip

20import qualified Text.XML.Light as XML

18import qualified Text.XML.Light as XML

21

19

src/Text/Pandoc/Readers/Odt/Arrows/State.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleInstances #-}

1{-# LANGUAGE FlexibleInstances #-}

3{-# LANGUAGE TupleSections #-}

2{-# LANGUAGE TupleSections #-}

4{- |

3{- |

@@ -20,7 +19,6 @@ faster and easier to implement this way.

20

19

21module Text.Pandoc.Readers.Odt.Arrows.State where

20module Text.Pandoc.Readers.Odt.Arrows.State where

22

21

23−import Prelude

24import Control.Arrow

22import Control.Arrow

25import qualified Control.Category as Cat

23import qualified Control.Category as Cat

26import Control.Monad

24import Control.Monad

src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Readers.Odt.Arrows.Utils

2 Module : Text.Pandoc.Readers.Odt.Arrows.Utils

4 Copyright : Copyright (C) 2015 Martin Linnemann

3 Copyright : Copyright (C) 2015 Martin Linnemann

@@ -22,7 +21,6 @@ with an equivalent return value.

22-- We export everything

21-- We export everything

23module Text.Pandoc.Readers.Odt.Arrows.Utils where

22module Text.Pandoc.Readers.Odt.Arrows.Utils where

24

23

25−import Prelude

26import Control.Arrow

24import Control.Arrow

27import Control.Monad (join)

25import Control.Monad (join)

28

26

src/Text/Pandoc/Readers/Odt/ContentReader.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE Arrows #-}

1{-# LANGUAGE Arrows #-}

3{-# LANGUAGE DeriveFoldable #-}

2{-# LANGUAGE DeriveFoldable #-}

4{-# LANGUAGE GeneralizedNewtypeDeriving #-}

3{-# LANGUAGE GeneralizedNewtypeDeriving #-}

@@ -24,7 +23,6 @@ module Text.Pandoc.Readers.Odt.ContentReader

24, read_body

23, read_body

25) where

24) where

26

25

27−import Prelude

28import Control.Applicative hiding (liftA, liftA2, liftA3)

26import Control.Applicative hiding (liftA, liftA2, liftA3)

29import Control.Arrow

27import Control.Arrow

30

28

src/Text/Pandoc/Readers/Odt/Generic/Fallible.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Readers.Odt.Generic.Fallible

2 Module : Text.Pandoc.Readers.Odt.Generic.Fallible

4 Copyright : Copyright (C) 2015 Martin Linnemann

3 Copyright : Copyright (C) 2015 Martin Linnemann

@@ -19,7 +18,6 @@ compatible instances of "ArrowChoice".

19

18

20-- We export everything

19-- We export everything

21module Text.Pandoc.Readers.Odt.Generic.Fallible where

20module Text.Pandoc.Readers.Odt.Generic.Fallible where

22−import Prelude

23

21

24-- | Default for now. Will probably become a class at some point.

22-- | Default for now. Will probably become a class at some point.

25type Failure = ()

23type Failure = ()

src/Text/Pandoc/Readers/Odt/Generic/Namespaces.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Readers.Odt.Generic.Namespaces

2 Module : Text.Pandoc.Readers.Odt.Generic.Namespaces

4 Copyright : Copyright (C) 2015 Martin Linnemann

3 Copyright : Copyright (C) 2015 Martin Linnemann

@@ -14,7 +13,6 @@ typesafe Haskell namespace identifiers and unsafe "real world" namespaces.

14

13

15module Text.Pandoc.Readers.Odt.Generic.Namespaces where

14module Text.Pandoc.Readers.Odt.Generic.Namespaces where

16

15

17−import Prelude

18import qualified Data.Map as M

16import qualified Data.Map as M

19

17

20--

18--

src/Text/Pandoc/Readers/Odt/Generic/SetMap.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Readers.Odt.Generic.SetMap

2 Module : Text.Pandoc.Readers.Odt.Generic.SetMap

4 Copyright : Copyright (C) 2015 Martin Linnemann

3 Copyright : Copyright (C) 2015 Martin Linnemann

@@ -13,7 +12,6 @@ A map of values to sets of values.

13

12

14module Text.Pandoc.Readers.Odt.Generic.SetMap where

13module Text.Pandoc.Readers.Odt.Generic.SetMap where

15

14

16−import Prelude

17import qualified Data.Map as M

15import qualified Data.Map as M

18import qualified Data.Set as S

16import qualified Data.Set as S

19

17

src/Text/Pandoc/Readers/Odt/Generic/Utils.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE TypeOperators #-}

1{-# LANGUAGE TypeOperators #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -30,7 +29,6 @@ module Text.Pandoc.Readers.Odt.Generic.Utils

30, composition

29, composition

31) where

30) where

32

31

33−import Prelude

34import Control.Category (Category, (<<<), (>>>))

32import Control.Category (Category, (<<<), (>>>))

35import qualified Control.Category as Cat (id)

33import qualified Control.Category as Cat (id)

36import Control.Monad (msum)

34import Control.Monad (msum)

src/Text/Pandoc/Readers/Odt/Generic/XMLConverter.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE TupleSections #-}

1{-# LANGUAGE TupleSections #-}

3{-# LANGUAGE GADTs #-}

2{-# LANGUAGE GADTs #-}

4{-# LANGUAGE PatternGuards #-}

3{-# LANGUAGE PatternGuards #-}

@@ -53,7 +52,6 @@ module Text.Pandoc.Readers.Odt.Generic.XMLConverter

53, matchContent

52, matchContent

54) where

53) where

55

54

56−import Prelude

57import Control.Applicative hiding ( liftA, liftA2 )

55import Control.Applicative hiding ( liftA, liftA2 )

58import Control.Monad ( MonadPlus )

56import Control.Monad ( MonadPlus )

59import Control.Arrow

57import Control.Arrow

src/Text/Pandoc/Readers/Odt/Namespaces.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Reader.Odt.Namespaces

2 Module : Text.Pandoc.Reader.Odt.Namespaces

4 Copyright : Copyright (C) 2015 Martin Linnemann

3 Copyright : Copyright (C) 2015 Martin Linnemann

@@ -14,7 +13,6 @@ Namespaces used in odt files.

14module Text.Pandoc.Readers.Odt.Namespaces ( Namespace (..)

13module Text.Pandoc.Readers.Odt.Namespaces ( Namespace (..)

15 ) where

14 ) where

16

15

17−import Prelude

18import Data.List (isPrefixOf)

16import Data.List (isPrefixOf)

19import qualified Data.Map as M (empty, insert)

17import qualified Data.Map as M (empty, insert)

20import Data.Maybe (fromMaybe, listToMaybe)

18import Data.Maybe (fromMaybe, listToMaybe)

src/Text/Pandoc/Readers/Odt/StyleReader.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

3{-# LANGUAGE Arrows #-}

2{-# LANGUAGE Arrows #-}

4{-# LANGUAGE RecordWildCards #-}

3{-# LANGUAGE RecordWildCards #-}

@@ -39,7 +38,6 @@ module Text.Pandoc.Readers.Odt.StyleReader

39, readStylesAt

38, readStylesAt

40) where

39) where

41

40

42−import Prelude

43import Control.Applicative hiding (liftA, liftA2, liftA3)

41import Control.Applicative hiding (liftA, liftA2, liftA3)

44import Control.Arrow

42import Control.Arrow

45

43

src/Text/Pandoc/Readers/Org.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.Org

3 Module : Text.Pandoc.Readers.Org

@@ -11,7 +10,6 @@ Conversion of org-mode formatted plain text to 'Pandoc' document.

11-}

10-}

12module Text.Pandoc.Readers.Org ( readOrg ) where

11module Text.Pandoc.Readers.Org ( readOrg ) where

13

12

14−import Prelude

15import Text.Pandoc.Readers.Org.Blocks (blockList, meta)

13import Text.Pandoc.Readers.Org.Blocks (blockList, meta)

16import Text.Pandoc.Readers.Org.ParserState (optionsToParserState)

14import Text.Pandoc.Readers.Org.ParserState (optionsToParserState)

17import Text.Pandoc.Readers.Org.Parsing (OrgParser, readWithM)

15import Text.Pandoc.Readers.Org.Parsing (OrgParser, readWithM)

src/Text/Pandoc/Readers/Org/BlockStarts.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.Org.BlockStarts

3 Module : Text.Pandoc.Readers.Org.BlockStarts

@@ -24,7 +23,6 @@ module Text.Pandoc.Readers.Org.BlockStarts

24 , endOfBlock

23 , endOfBlock

25 ) where

24 ) where

26

25

27−import Prelude

28import Control.Monad (void)

26import Control.Monad (void)

29import Data.Text (Text)

27import Data.Text (Text)

30import qualified Data.Text as T

28import qualified Data.Text as T

src/Text/Pandoc/Readers/Org/Blocks.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE RecordWildCards #-}

2{-# LANGUAGE RecordWildCards #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

@@ -16,7 +15,6 @@ module Text.Pandoc.Readers.Org.Blocks

16 , meta

15 , meta

17 ) where

16 ) where

18

17

19−import Prelude

20import Text.Pandoc.Readers.Org.BlockStarts

18import Text.Pandoc.Readers.Org.BlockStarts

21import Text.Pandoc.Readers.Org.DocumentTree (documentTree,

19import Text.Pandoc.Readers.Org.DocumentTree (documentTree,

22 unprunedHeadlineToBlocks)

20 unprunedHeadlineToBlocks)

src/Text/Pandoc/Readers/Org/DocumentTree.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE TupleSections #-}

3{-# LANGUAGE TupleSections #-}

5{- |

4{- |

@@ -16,7 +15,6 @@ module Text.Pandoc.Readers.Org.DocumentTree

16 , unprunedHeadlineToBlocks

15 , unprunedHeadlineToBlocks

17 ) where

16 ) where

18

17

19−import Prelude

20import Control.Arrow ((***), first)

18import Control.Arrow ((***), first)

21import Control.Monad (guard)

19import Control.Monad (guard)

22import Data.List (intersperse)

20import Data.List (intersperse)

src/Text/Pandoc/Readers/Org/ExportSettings.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.Org.ExportSettings

3 Module : Text.Pandoc.Readers.Org.ExportSettings

@@ -13,7 +12,6 @@ module Text.Pandoc.Readers.Org.ExportSettings

13 ( exportSettings

12 ( exportSettings

14 ) where

13 ) where

15

14

16−import Prelude

17import Text.Pandoc.Class (PandocMonad, report)

15import Text.Pandoc.Class (PandocMonad, report)

18import Text.Pandoc.Logging (LogMessage (UnknownOrgExportOption))

16import Text.Pandoc.Logging (LogMessage (UnknownOrgExportOption))

19import Text.Pandoc.Readers.Org.ParserState

17import Text.Pandoc.Readers.Org.ParserState

src/Text/Pandoc/Readers/Org/Inlines.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.Org.Inlines

3 Module : Text.Pandoc.Readers.Org.Inlines

@@ -16,7 +15,6 @@ module Text.Pandoc.Readers.Org.Inlines

16 , linkTarget

15 , linkTarget

17 ) where

16 ) where

18

17

19−import Prelude

20import Text.Pandoc.Readers.Org.BlockStarts (endOfBlock, noteMarker)

18import Text.Pandoc.Readers.Org.BlockStarts (endOfBlock, noteMarker)

21import Text.Pandoc.Readers.Org.ParserState

19import Text.Pandoc.Readers.Org.ParserState

22import Text.Pandoc.Readers.Org.Parsing

20import Text.Pandoc.Readers.Org.Parsing

src/Text/Pandoc/Readers/Org/Meta.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE TupleSections #-}

2{-# LANGUAGE TupleSections #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

@@ -17,7 +16,6 @@ module Text.Pandoc.Readers.Org.Meta

17 , metaLine

16 , metaLine

18 ) where

17 ) where

19

18

20−import Prelude

21import Text.Pandoc.Readers.Org.BlockStarts

19import Text.Pandoc.Readers.Org.BlockStarts

22import Text.Pandoc.Readers.Org.ExportSettings (exportSettings)

20import Text.Pandoc.Readers.Org.ExportSettings (exportSettings)

23import Text.Pandoc.Readers.Org.Inlines

21import Text.Pandoc.Readers.Org.Inlines

src/Text/Pandoc/Readers/Org/ParserState.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleInstances #-}

1{-# LANGUAGE FlexibleInstances #-}

3{-# LANGUAGE MultiParamTypeClasses #-}

2{-# LANGUAGE MultiParamTypeClasses #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

@@ -39,7 +38,6 @@ module Text.Pandoc.Readers.Org.ParserState

39 , optionsToParserState

38 , optionsToParserState

40 ) where

39 ) where

41

40

42−import Prelude

43import Control.Monad.Reader (ReaderT, asks, local)

41import Control.Monad.Reader (ReaderT, asks, local)

44

42

45import Data.Default (Default (..))

43import Data.Default (Default (..))

src/Text/Pandoc/Readers/Org/Parsing.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Readers.Org.Parsing

2 Module : Text.Pandoc.Readers.Org.Parsing

4 Copyright : Copyright (C) 2014-2020 Albert Krewinkel

3 Copyright : Copyright (C) 2014-2020 Albert Krewinkel

@@ -104,7 +103,6 @@ module Text.Pandoc.Readers.Org.Parsing

104 , getPosition

103 , getPosition

105 ) where

104 ) where

106

105

107−import Prelude

108import Data.Text (Text)

106import Data.Text (Text)

109import Text.Pandoc.Readers.Org.ParserState

107import Text.Pandoc.Readers.Org.ParserState

110

108

src/Text/Pandoc/Readers/Org/Shared.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.Org.Shared

3 Module : Text.Pandoc.Readers.Org.Shared

@@ -17,7 +16,6 @@ module Text.Pandoc.Readers.Org.Shared

17 , exportsCode

16 , exportsCode

18 ) where

17 ) where

19

18

20−import Prelude

21import Data.Char (isAlphaNum)

19import Data.Char (isAlphaNum)

22import Data.Text (Text)

20import Data.Text (Text)

23import qualified Data.Text as T

21import qualified Data.Text as T

src/Text/Pandoc/Readers/RST.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE ScopedTypeVariables #-}

@@ -15,7 +14,6 @@

15Conversion from reStructuredText to 'Pandoc' document.

14Conversion from reStructuredText to 'Pandoc' document.

16-}

15-}

17module Text.Pandoc.Readers.RST ( readRST ) where

16module Text.Pandoc.Readers.RST ( readRST ) where

18−import Prelude

19import Control.Arrow (second)

17import Control.Arrow (second)

20import Control.Monad (forM_, guard, liftM, mplus, mzero, when)

18import Control.Monad (forM_, guard, liftM, mplus, mzero, when)

21import Control.Monad.Except (throwError)

19import Control.Monad.Except (throwError)

src/Text/Pandoc/Readers/Roff.hs−1

@@ -28,7 +28,6 @@ module Text.Pandoc.Readers.Roff

28 )

28 )

29where

29where

30

30

31−import Prelude

32import Safe (lastDef)

31import Safe (lastDef)

33import Control.Monad (void, mzero, mplus, guard)

32import Control.Monad (void, mzero, mplus, guard)

34import Control.Monad.Except (throwError)

33import Control.Monad.Except (throwError)

src/Text/Pandoc/Readers/TWiki.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE RelaxedPolyRec #-}

3{-# LANGUAGE RelaxedPolyRec #-}

@@ -17,7 +16,6 @@ Conversion of twiki text to 'Pandoc' document.

17module Text.Pandoc.Readers.TWiki ( readTWiki

16module Text.Pandoc.Readers.TWiki ( readTWiki

18 ) where

17 ) where

19

18

20−import Prelude

21import Control.Monad

19import Control.Monad

22import Control.Monad.Except (throwError)

20import Control.Monad.Except (throwError)

23import Data.Char (isAlphaNum)

21import Data.Char (isAlphaNum)

src/Text/Pandoc/Readers/Textile.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -36,7 +35,6 @@ TODO : refactor common patterns across readers :

36

35

37

36

38module Text.Pandoc.Readers.Textile ( readTextile) where

37module Text.Pandoc.Readers.Textile ( readTextile) where

39−import Prelude

40import Control.Monad (guard, liftM)

38import Control.Monad (guard, liftM)

41import Control.Monad.Except (throwError)

39import Control.Monad.Except (throwError)

42import Data.Char (digitToInt, isUpper)

40import Data.Char (digitToInt, isUpper)

src/Text/Pandoc/Readers/TikiWiki.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE RelaxedPolyRec #-}

3{-# LANGUAGE RelaxedPolyRec #-}

@@ -18,7 +17,6 @@ Conversion of TikiWiki text to 'Pandoc' document.

18module Text.Pandoc.Readers.TikiWiki ( readTikiWiki

17module Text.Pandoc.Readers.TikiWiki ( readTikiWiki

19 ) where

18 ) where

20

19

21−import Prelude

22import Control.Monad

20import Control.Monad

23import Control.Monad.Except (throwError)

21import Control.Monad.Except (throwError)

24import qualified Data.Foldable as F

22import qualified Data.Foldable as F

src/Text/Pandoc/Readers/Txt2Tags.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Readers.Txt2Tags

3 Module : Text.Pandoc.Readers.Txt2Tags

@@ -15,7 +14,6 @@ module Text.Pandoc.Readers.Txt2Tags ( readTxt2Tags

15 )

14 )

16 where

15 where

17

16

18−import Prelude

19import Control.Monad (guard, void, when)

17import Control.Monad (guard, void, when)

20import Control.Monad.Except (catchError, throwError)

18import Control.Monad.Except (catchError, throwError)

21import Control.Monad.Reader (Reader, asks, runReader)

19import Control.Monad.Reader (Reader, asks, runReader)

src/Text/Pandoc/Readers/Vimwiki.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE CPP #-}

2{-# LANGUAGE CPP #-}

4{- |

3{- |

@@ -48,7 +47,6 @@ Conversion of vimwiki text to 'Pandoc' document.

48

47

49module Text.Pandoc.Readers.Vimwiki ( readVimwiki

48module Text.Pandoc.Readers.Vimwiki ( readVimwiki

50 ) where

49 ) where

51−import Prelude

52import Control.Monad (guard)

50import Control.Monad (guard)

53import Control.Monad.Except (throwError)

51import Control.Monad.Except (throwError)

54import Data.Default

52import Data.Default

src/Text/Pandoc/RoffChar.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.RoffChar

3 Module : Text.Pandoc.RoffChar

@@ -17,7 +16,6 @@ module Text.Pandoc.RoffChar (

17 , characterCodes

16 , characterCodes

18 , combiningAccents

17 , combiningAccents

19 ) where

18 ) where

20−import Prelude

21import qualified Data.Text as T

19import qualified Data.Text as T

22

20

23-- | These are the escapes specifically mentioned in groff_man(7),

21-- | These are the escapes specifically mentioned in groff_man(7),

src/Text/Pandoc/SelfContained.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE TupleSections #-}

2{-# LANGUAGE TupleSections #-}

4{- |

3{- |

@@ -15,7 +14,6 @@ offline, by incorporating linked images, CSS, and scripts into

15the HTML using data URIs.

14the HTML using data URIs.

16-}

15-}

17module Text.Pandoc.SelfContained ( makeDataURI, makeSelfContained ) where

16module Text.Pandoc.SelfContained ( makeDataURI, makeSelfContained ) where

18−import Prelude

19import Codec.Compression.GZip as Gzip

17import Codec.Compression.GZip as Gzip

20import Control.Applicative ((<|>))

18import Control.Applicative ((<|>))

21import Control.Monad.Except (throwError)

19import Control.Monad.Except (throwError)

src/Text/Pandoc/Shared.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

3{-# LANGUAGE FlexibleContexts #-}

2{-# LANGUAGE FlexibleContexts #-}

4{-# LANGUAGE MultiParamTypeClasses #-}

3{-# LANGUAGE MultiParamTypeClasses #-}

@@ -104,7 +103,6 @@ module Text.Pandoc.Shared (

104 pandocVersion

103 pandocVersion

105 ) where

104 ) where

106

105

107−import Prelude

108import Codec.Archive.Zip

106import Codec.Archive.Zip

109import qualified Control.Exception as E

107import qualified Control.Exception as E

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

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

src/Text/Pandoc/Slides.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Slides

3 Module : Text.Pandoc.Slides

@@ -13,7 +12,6 @@ Utility functions for splitting documents into slides for slide

13show formats (dzslides, revealjs, s5, slidy, slideous, beamer).

12show formats (dzslides, revealjs, s5, slidy, slideous, beamer).

14-}

13-}

15module Text.Pandoc.Slides ( getSlideLevel, prepSlides ) where

14module Text.Pandoc.Slides ( getSlideLevel, prepSlides ) where

16−import Prelude

17import Text.Pandoc.Definition

15import Text.Pandoc.Definition

18

16

19-- | Find level of header that starts slides (defined as the least header

17-- | Find level of header that starts slides (defined as the least header

src/Text/Pandoc/Templates.hs−1

@@ -24,7 +24,6 @@ module Text.Pandoc.Templates ( Template

24 , compileDefaultTemplate

24 , compileDefaultTemplate

25 ) where

25 ) where

26

26

27−import Prelude

28import System.FilePath ((<.>), (</>), takeFileName)

27import System.FilePath ((<.>), (</>), takeFileName)

29import Text.DocTemplates (Template, TemplateMonad(..), compileTemplate, renderTemplate)

28import Text.DocTemplates (Template, TemplateMonad(..), compileTemplate, renderTemplate)

30import Text.Pandoc.Class (PandocMonad, readDataFile, fetchItem,

29import Text.Pandoc.Class (PandocMonad, readDataFile, fetchItem,

src/Text/Pandoc/Translations.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

3{-# LANGUAGE DeriveGeneric #-}

2{-# LANGUAGE DeriveGeneric #-}

4{-# LANGUAGE GeneralizedNewtypeDeriving #-}

3{-# LANGUAGE GeneralizedNewtypeDeriving #-}

@@ -30,7 +29,6 @@ module Text.Pandoc.Translations (

30 , readTranslations

29 , readTranslations

31 )

30 )

32where

31where

33−import Prelude

34import Data.Aeson.Types (Value(..), FromJSON(..))

32import Data.Aeson.Types (Value(..), FromJSON(..))

35import qualified Data.Aeson.Types as Aeson

33import qualified Data.Aeson.Types as Aeson

36import qualified Data.HashMap.Strict as HM

34import qualified Data.HashMap.Strict as HM

src/Text/Pandoc/UUID.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.UUID

2 Module : Text.Pandoc.UUID

4 Copyright : Copyright (C) 2010-2020 John MacFarlane

3 Copyright : Copyright (C) 2010-2020 John MacFarlane

@@ -14,7 +13,6 @@ in RFC4122. See http://tools.ietf.org/html/rfc4122

14

13

15module Text.Pandoc.UUID ( UUID(..), getRandomUUID, getUUID ) where

14module Text.Pandoc.UUID ( UUID(..), getRandomUUID, getUUID ) where

16

15

17−import Prelude

18import Data.Bits (clearBit, setBit)

16import Data.Bits (clearBit, setBit)

19import Data.Word

17import Data.Word

20import System.Random (RandomGen, getStdGen, randoms)

18import System.Random (RandomGen, getStdGen, randoms)

src/Text/Pandoc/Writers.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleInstances #-}

1{-# LANGUAGE FlexibleInstances #-}

3{-# LANGUAGE GADTs #-}

2{-# LANGUAGE GADTs #-}

4{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE ScopedTypeVariables #-}

@@ -73,7 +72,6 @@ module Text.Pandoc.Writers

73 , getWriter

72 , getWriter

74 ) where

73 ) where

75

74

76−import Prelude

77import Control.Monad.Except (throwError)

75import Control.Monad.Except (throwError)

78import Control.Monad (unless)

76import Control.Monad (unless)

79import Data.Aeson

77import Data.Aeson

src/Text/Pandoc/Writers/AsciiDoc.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Writers.AsciiDoc

3 Module : Text.Pandoc.Writers.AsciiDoc

@@ -20,7 +19,6 @@ that it has omitted the construct.

20AsciiDoc: <http://www.methods.co.nz/asciidoc/>

19AsciiDoc: <http://www.methods.co.nz/asciidoc/>

21-}

20-}

22module Text.Pandoc.Writers.AsciiDoc (writeAsciiDoc, writeAsciiDoctor) where

21module Text.Pandoc.Writers.AsciiDoc (writeAsciiDoc, writeAsciiDoctor) where

23−import Prelude

24import Control.Monad.State.Strict

22import Control.Monad.State.Strict

25import Data.Char (isPunctuation, isSpace)

23import Data.Char (isPunctuation, isSpace)

26import Data.List (intercalate, intersperse)

24import Data.List (intercalate, intersperse)

src/Text/Pandoc/Writers/CommonMark.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -16,7 +15,6 @@ CommonMark: <http://commonmark.org>

16-}

15-}

17module Text.Pandoc.Writers.CommonMark (writeCommonMark) where

16module Text.Pandoc.Writers.CommonMark (writeCommonMark) where

18

17

19−import Prelude

20import CMarkGFM

18import CMarkGFM

21import Control.Monad.State.Strict (State, get, modify, runState)

19import Control.Monad.State.Strict (State, get, modify, runState)

22import Data.Char (isAscii)

20import Data.Char (isAscii)

src/Text/Pandoc/Writers/ConTeXt.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ScopedTypeVariables #-}

2{-# LANGUAGE ScopedTypeVariables #-}

4{-# LANGUAGE ViewPatterns #-}

3{-# LANGUAGE ViewPatterns #-}

@@ -14,7 +13,6 @@

14Conversion of 'Pandoc' format into ConTeXt.

13Conversion of 'Pandoc' format into ConTeXt.

15-}

14-}

16module Text.Pandoc.Writers.ConTeXt ( writeConTeXt ) where

15module Text.Pandoc.Writers.ConTeXt ( writeConTeXt ) where

17−import Prelude

18import Control.Monad.State.Strict

16import Control.Monad.State.Strict

19import Data.Char (ord, isDigit)

17import Data.Char (ord, isDigit)

20import Data.List (intersperse)

18import Data.List (intersperse)

src/Text/Pandoc/Writers/Custom.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE FlexibleInstances #-}

1{-# LANGUAGE FlexibleInstances #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{- |

3{- |

5 Module : Text.Pandoc.Writers.Custom

4 Module : Text.Pandoc.Writers.Custom

@@ -14,7 +13,6 @@ Conversion of 'Pandoc' documents to custom markup using

14a lua writer.

13a lua writer.

15-}

14-}

16module Text.Pandoc.Writers.Custom ( writeCustom ) where

15module Text.Pandoc.Writers.Custom ( writeCustom ) where

17−import Prelude

18import Control.Arrow ((***))

16import Control.Arrow ((***))

19import Control.Exception

17import Control.Exception

20import Control.Monad (when)

18import Control.Monad (when)

src/Text/Pandoc/Writers/Docbook.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE PatternGuards #-}

2{-# LANGUAGE PatternGuards #-}

4{-# LANGUAGE ViewPatterns #-}

3{-# LANGUAGE ViewPatterns #-}

@@ -14,7 +13,6 @@

14Conversion of 'Pandoc' documents to Docbook XML.

13Conversion of 'Pandoc' documents to Docbook XML.

15-}

14-}

16module Text.Pandoc.Writers.Docbook ( writeDocbook4, writeDocbook5 ) where

15module Text.Pandoc.Writers.Docbook ( writeDocbook4, writeDocbook5 ) where

17−import Prelude

18import Control.Monad.Reader

16import Control.Monad.Reader

19import Data.Generics (everywhere, mkT)

17import Data.Generics (everywhere, mkT)

20import Data.Monoid (Any (..))

18import Data.Monoid (Any (..))

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

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE PatternGuards #-}

1{-# LANGUAGE PatternGuards #-}

3{-# LANGUAGE RankNTypes #-}

2{-# LANGUAGE RankNTypes #-}

4{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE ScopedTypeVariables #-}

@@ -17,7 +16,6 @@

17Conversion of 'Pandoc' documents to docx.

16Conversion of 'Pandoc' documents to docx.

18-}

17-}

19module Text.Pandoc.Writers.Docx ( writeDocx ) where

18module Text.Pandoc.Writers.Docx ( writeDocx ) where

20−import Prelude

21import Codec.Archive.Zip

19import Codec.Archive.Zip

22import Control.Applicative ((<|>))

20import Control.Applicative ((<|>))

23import Control.Monad.Except (catchError, throwError)

21import Control.Monad.Except (catchError, throwError)

src/Text/Pandoc/Writers/Docx/StyleMap.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

3{- |

2{- |

4 Module : Text.Pandoc.Writers.Docx.StyleMap

3 Module : Text.Pandoc.Writers.Docx.StyleMap

@@ -30,7 +29,6 @@ import qualified Data.Map as M

30import qualified Data.Text as T

29import qualified Data.Text as T

31import Data.String

30import Data.String

32import Data.Char (isSpace)

31import Data.Char (isSpace)

33−import Prelude

34

32

35data StyleMaps = StyleMaps { smCharStyle :: CharStyleNameMap, smParaStyle :: ParaStyleNameMap }

33data StyleMaps = StyleMaps { smCharStyle :: CharStyleNameMap, smParaStyle :: ParaStyleNameMap }

36type ParaStyleNameMap = M.Map ParaStyleName ParStyle

34type ParaStyleNameMap = M.Map ParaStyleName ParStyle

src/Text/Pandoc/Writers/DokuWiki.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Writers.DokuWiki

3 Module : Text.Pandoc.Writers.DokuWiki

@@ -23,7 +22,6 @@ DokuWiki: <https://www.dokuwiki.org/dokuwiki>

23-}

22-}

24

23

25module Text.Pandoc.Writers.DokuWiki ( writeDokuWiki ) where

24module Text.Pandoc.Writers.DokuWiki ( writeDokuWiki ) where

26−import Prelude

27import Control.Monad (zipWithM)

25import Control.Monad (zipWithM)

28import Control.Monad.Reader (ReaderT, asks, local, runReaderT)

26import Control.Monad.Reader (ReaderT, asks, local, runReaderT)

29import Control.Monad.State.Strict (StateT, evalStateT)

27import Control.Monad.State.Strict (StateT, evalStateT)

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

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE CPP #-}

1{-# LANGUAGE CPP #-}

3{-# LANGUAGE FlexibleContexts #-}

2{-# LANGUAGE FlexibleContexts #-}

4{-# LANGUAGE PatternGuards #-}

3{-# LANGUAGE PatternGuards #-}

@@ -16,7 +15,6 @@

16Conversion of 'Pandoc' documents to EPUB.

15Conversion of 'Pandoc' documents to EPUB.

17-}

16-}

18module Text.Pandoc.Writers.EPUB ( writeEPUB2, writeEPUB3 ) where

17module Text.Pandoc.Writers.EPUB ( writeEPUB2, writeEPUB3 ) where

19−import Prelude

20import Codec.Archive.Zip (Entry, addEntryToArchive, eRelativePath, emptyArchive,

18import Codec.Archive.Zip (Entry, addEntryToArchive, eRelativePath, emptyArchive,

21 fromArchive, fromEntry, toEntry)

19 fromArchive, fromEntry, toEntry)

22import Control.Applicative ( (<|>) )

20import Control.Applicative ( (<|>) )

src/Text/Pandoc/Writers/FB2.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE PatternGuards #-}

1{-# LANGUAGE PatternGuards #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{- |

3{- |

@@ -19,7 +18,6 @@ FictionBook is an XML-based e-book format. For more information see:

19-}

18-}

20module Text.Pandoc.Writers.FB2 (writeFB2) where

19module Text.Pandoc.Writers.FB2 (writeFB2) where

21

20

22−import Prelude

23import Control.Monad (zipWithM)

21import Control.Monad (zipWithM)

24import Control.Monad.Except (catchError)

22import Control.Monad.Except (catchError)

25import Control.Monad.State.Strict (StateT, evalStateT, get, gets, lift, liftM, modify)

23import Control.Monad.State.Strict (StateT, evalStateT, get, gets, lift, liftM, modify)

src/Text/Pandoc/Writers/HTML.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE MultiWayIf #-}

1{-# LANGUAGE MultiWayIf #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE ScopedTypeVariables #-}

5{-# LANGUAGE ViewPatterns #-}

4{-# LANGUAGE ViewPatterns #-}

@@ -39,7 +38,6 @@ import Network.HTTP (urlEncode)

39import Network.URI (URI (..), parseURIReference)

38import Network.URI (URI (..), parseURIReference)

40import Numeric (showHex)

39import Numeric (showHex)

41import Text.DocLayout (render, literal)

40import Text.DocLayout (render, literal)

42−import Prelude

43import Text.Blaze.Internal (MarkupM (Empty), customLeaf, customParent)

41import Text.Blaze.Internal (MarkupM (Empty), customLeaf, customParent)

44import Text.DocTemplates (FromContext (lookupContext), Context (..))

42import Text.DocTemplates (FromContext (lookupContext), Context (..))

45import Text.Blaze.Html hiding (contents)

43import Text.Blaze.Html hiding (contents)

src/Text/Pandoc/Writers/Haddock.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ScopedTypeVariables #-}

2{-# LANGUAGE ScopedTypeVariables #-}

4{- |

3{- |

@@ -15,7 +14,6 @@ Conversion of 'Pandoc' documents to haddock markup.

15Haddock: <http://www.haskell.org/haddock/doc/html/>

14Haddock: <http://www.haskell.org/haddock/doc/html/>

16-}

15-}

17module Text.Pandoc.Writers.Haddock (writeHaddock) where

16module Text.Pandoc.Writers.Haddock (writeHaddock) where

18−import Prelude

19import Control.Monad.State.Strict

17import Control.Monad.State.Strict

20import Data.Default

18import Data.Default

21import Data.Text (Text)

19import Data.Text (Text)

src/Text/Pandoc/Writers/ICML.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE ScopedTypeVariables #-}

@@ -18,7 +17,6 @@ InCopy is the companion word-processor to Adobe InDesign and ICML documents can

18into InDesign with File -> Place.

17into InDesign with File -> Place.

19-}

18-}

20module Text.Pandoc.Writers.ICML (writeICML) where

19module Text.Pandoc.Writers.ICML (writeICML) where

21−import Prelude

22import Control.Monad.Except (catchError)

20import Control.Monad.Except (catchError)

23import Control.Monad.State.Strict

21import Control.Monad.State.Strict

24import Data.List (intersperse)

22import Data.List (intersperse)

src/Text/Pandoc/Writers/Ipynb.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ScopedTypeVariables #-}

2{-# LANGUAGE ScopedTypeVariables #-}

4{- |

3{- |

@@ -15,7 +14,6 @@ Ipynb (Jupyter notebook JSON format) writer for pandoc.

15-}

14-}

16module Text.Pandoc.Writers.Ipynb ( writeIpynb )

15module Text.Pandoc.Writers.Ipynb ( writeIpynb )

17where

16where

18−import Prelude

19import Control.Monad.State

17import Control.Monad.State

20import qualified Data.Map as M

18import qualified Data.Map as M

21import Data.Maybe (catMaybes, fromMaybe)

19import Data.Maybe (catMaybes, fromMaybe)

src/Text/Pandoc/Writers/JATS.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE ScopedTypeVariables #-}

1{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE ViewPatterns #-}

3{-# LANGUAGE ViewPatterns #-}

@@ -21,7 +20,6 @@ module Text.Pandoc.Writers.JATS

21 , writeJatsPublishing

20 , writeJatsPublishing

22 , writeJatsArticleAuthoring

21 , writeJatsArticleAuthoring

23 ) where

22 ) where

24−import Prelude

25import Control.Monad.Reader

23import Control.Monad.Reader

26import Control.Monad.State

24import Control.Monad.State

27import Data.Generics (everywhere, mkT)

25import Data.Generics (everywhere, mkT)

src/Text/Pandoc/Writers/Jira.hs−2

@@ -1,6 +1,5 @@

1{-# LANGUAGE LambdaCase #-}

1{-# LANGUAGE LambdaCase #-}

2{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

3−{-# LANGUAGE NoImplicitPrelude #-}

4{- |

3{- |

5 Module : Text.Pandoc.Writers.Jira

4 Module : Text.Pandoc.Writers.Jira

6 Copyright : © 2010-2020 Albert Krewinkel, John MacFarlane

5 Copyright : © 2010-2020 Albert Krewinkel, John MacFarlane

@@ -16,7 +15,6 @@ JIRA:

16<https://jira.atlassian.com/secure/WikiRendererHelpAction.jspa?section=all>

15<https://jira.atlassian.com/secure/WikiRendererHelpAction.jspa?section=all>

17-}

16-}

18module Text.Pandoc.Writers.Jira ( writeJira ) where

17module Text.Pandoc.Writers.Jira ( writeJira ) where

19−import Prelude

20import Control.Monad.Reader (ReaderT, ask, asks, runReaderT)

18import Control.Monad.Reader (ReaderT, ask, asks, runReaderT)

21import Control.Monad.State.Strict (StateT, evalStateT, gets, modify)

19import Control.Monad.State.Strict (StateT, evalStateT, gets, modify)

22import Data.Foldable (find)

20import Data.Foldable (find)

src/Text/Pandoc/Writers/LaTeX.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE PatternGuards #-}

2{-# LANGUAGE PatternGuards #-}

4{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE ScopedTypeVariables #-}

@@ -18,7 +17,6 @@ module Text.Pandoc.Writers.LaTeX (

18 writeLaTeX

17 writeLaTeX

19 , writeBeamer

18 , writeBeamer

20 ) where

19 ) where

21−import Prelude

22import Control.Applicative ((<|>))

20import Control.Applicative ((<|>))

23import Control.Monad.State.Strict

21import Control.Monad.State.Strict

24import Data.Monoid (Any(..))

22import Data.Monoid (Any(..))

src/Text/Pandoc/Writers/Man.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -14,7 +13,6 @@ Conversion of 'Pandoc' documents to roff man page format.

14

13

15-}

14-}

16module Text.Pandoc.Writers.Man ( writeMan ) where

15module Text.Pandoc.Writers.Man ( writeMan ) where

17−import Prelude

18import Control.Monad.State.Strict

16import Control.Monad.State.Strict

19import Data.List (intersperse)

17import Data.List (intersperse)

20import Data.Maybe (fromMaybe)

18import Data.Maybe (fromMaybe)

src/Text/Pandoc/Writers/Markdown.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE MultiWayIf #-}

1{-# LANGUAGE MultiWayIf #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE ScopedTypeVariables #-}

@@ -18,7 +17,6 @@ Conversion of 'Pandoc' documents to markdown-formatted plain text.

18Markdown: <http://daringfireball.net/projects/markdown/>

17Markdown: <http://daringfireball.net/projects/markdown/>

19-}

18-}

20module Text.Pandoc.Writers.Markdown (writeMarkdown, writePlain) where

19module Text.Pandoc.Writers.Markdown (writeMarkdown, writePlain) where

21−import Prelude

22import Control.Monad.Reader

20import Control.Monad.Reader

23import Control.Monad.State.Strict

21import Control.Monad.State.Strict

24import Data.Char (isAlphaNum)

22import Data.Char (isAlphaNum)

src/Text/Pandoc/Writers/Math.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3module Text.Pandoc.Writers.Math

2module Text.Pandoc.Writers.Math

4 ( texMathToInlines

3 ( texMathToInlines

@@ -8,7 +7,6 @@ module Text.Pandoc.Writers.Math

8 )

7 )

9where

8where

10

9

11−import Prelude

12import qualified Data.Text as T

10import qualified Data.Text as T

13import Text.Pandoc.Class

11import Text.Pandoc.Class

14import Text.Pandoc.Definition

12import Text.Pandoc.Definition

src/Text/Pandoc/Writers/MediaWiki.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -15,7 +14,6 @@ Conversion of 'Pandoc' documents to MediaWiki markup.

15MediaWiki: <http://www.mediawiki.org/wiki/MediaWiki>

14MediaWiki: <http://www.mediawiki.org/wiki/MediaWiki>

16-}

15-}

17module Text.Pandoc.Writers.MediaWiki ( writeMediaWiki, highlightingLangs ) where

16module Text.Pandoc.Writers.MediaWiki ( writeMediaWiki, highlightingLangs ) where

18−import Prelude

19import Control.Monad.Reader

17import Control.Monad.Reader

20import Control.Monad.State.Strict

18import Control.Monad.State.Strict

21import Data.Maybe (fromMaybe)

19import Data.Maybe (fromMaybe)

src/Text/Pandoc/Writers/Ms.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -21,7 +20,6 @@ TODO:

21-}

20-}

22

21

23module Text.Pandoc.Writers.Ms ( writeMs ) where

22module Text.Pandoc.Writers.Ms ( writeMs ) where

24−import Prelude

25import Control.Monad.State.Strict

23import Control.Monad.State.Strict

26import Data.Char (isLower, isUpper, ord)

24import Data.Char (isLower, isUpper, ord)

27import Data.List (intercalate, intersperse)

25import Data.List (intercalate, intersperse)

src/Text/Pandoc/Writers/Muse.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -26,7 +25,6 @@ However, @\<literal style="html">@ tag is used for HTML raw blocks

26even though it is supported only in Emacs Muse.

25even though it is supported only in Emacs Muse.

27-}

26-}

28module Text.Pandoc.Writers.Muse (writeMuse) where

27module Text.Pandoc.Writers.Muse (writeMuse) where

29−import Prelude

30import Control.Monad.Except (throwError)

28import Control.Monad.Except (throwError)

31import Control.Monad.Reader

29import Control.Monad.Reader

32import Control.Monad.State.Strict

30import Control.Monad.State.Strict

src/Text/Pandoc/Writers/Native.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Writers.Native

3 Module : Text.Pandoc.Writers.Native

@@ -13,7 +12,6 @@ Conversion of a 'Pandoc' document to a string representation.

13-}

12-}

14module Text.Pandoc.Writers.Native ( writeNative )

13module Text.Pandoc.Writers.Native ( writeNative )

15where

14where

16−import Prelude

17import Data.List (intersperse)

15import Data.List (intersperse)

18import Data.Text (Text)

16import Data.Text (Text)

19import Text.Pandoc.Class (PandocMonad)

17import Text.Pandoc.Class (PandocMonad)

src/Text/Pandoc/Writers/ODT.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE ScopedTypeVariables #-}

1{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{- |

3{- |

@@ -13,7 +12,6 @@

13Conversion of 'Pandoc' documents to ODT.

12Conversion of 'Pandoc' documents to ODT.

14-}

13-}

15module Text.Pandoc.Writers.ODT ( writeODT ) where

14module Text.Pandoc.Writers.ODT ( writeODT ) where

16−import Prelude

17import Codec.Archive.Zip

15import Codec.Archive.Zip

18import Control.Monad.Except (catchError)

16import Control.Monad.Except (catchError)

19import Control.Monad.State.Strict

17import Control.Monad.State.Strict

src/Text/Pandoc/Writers/OOXML.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Writers.OOXML

3 Module : Text.Pandoc.Writers.OOXML

@@ -24,7 +23,6 @@ module Text.Pandoc.Writers.OOXML ( mknode

24 , fitToPage

23 , fitToPage

25 ) where

24 ) where

26

25

27−import Prelude

28import Codec.Archive.Zip

26import Codec.Archive.Zip

29import Control.Monad.Reader

27import Control.Monad.Reader

30import Control.Monad.Except (throwError)

28import Control.Monad.Except (throwError)

src/Text/Pandoc/Writers/OPML.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE CPP #-}

2{-# LANGUAGE CPP #-}

4{- |

3{- |

@@ -13,7 +12,6 @@

13Conversion of 'Pandoc' documents to OPML XML.

12Conversion of 'Pandoc' documents to OPML XML.

14-}

13-}

15module Text.Pandoc.Writers.OPML ( writeOPML) where

14module Text.Pandoc.Writers.OPML ( writeOPML) where

16−import Prelude

17import Data.Text (Text)

15import Data.Text (Text)

18import qualified Data.Text as T

16import qualified Data.Text as T

19import qualified Text.Pandoc.Builder as B

17import qualified Text.Pandoc.Builder as B

src/Text/Pandoc/Writers/OpenDocument.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE PatternGuards #-}

3{-# LANGUAGE PatternGuards #-}

@@ -15,7 +14,6 @@

15Conversion of 'Pandoc' documents to OpenDocument XML.

14Conversion of 'Pandoc' documents to OpenDocument XML.

16-}

15-}

17module Text.Pandoc.Writers.OpenDocument ( writeOpenDocument ) where

16module Text.Pandoc.Writers.OpenDocument ( writeOpenDocument ) where

18−import Prelude

19import Control.Arrow ((***), (>>>))

17import Control.Arrow ((***), (>>>))

20import Control.Monad.State.Strict hiding (when)

18import Control.Monad.State.Strict hiding (when)

21import Data.Char (chr)

19import Data.Char (chr)

src/Text/Pandoc/Writers/Org.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Writers.Org

3 Module : Text.Pandoc.Writers.Org

@@ -16,7 +15,6 @@ Conversion of 'Pandoc' documents to Emacs Org-Mode.

16Org-Mode: <http://orgmode.org>

15Org-Mode: <http://orgmode.org>

17-}

16-}

18module Text.Pandoc.Writers.Org (writeOrg) where

17module Text.Pandoc.Writers.Org (writeOrg) where

19−import Prelude

20import Control.Monad.State.Strict

18import Control.Monad.State.Strict

21import Data.Char (isAlphaNum)

19import Data.Char (isAlphaNum)

22import Data.List (intersect, intersperse, partition, transpose)

20import Data.List (intersect, intersperse, partition, transpose)

src/Text/Pandoc/Writers/Powerpoint.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{- |

1{- |

3 Module : Text.Pandoc.Writers.Powerpoint

2 Module : Text.Pandoc.Writers.Powerpoint

4 Copyright : Copyright (C) 2017-2020 Jesse Rosenthal

3 Copyright : Copyright (C) 2017-2020 Jesse Rosenthal

@@ -22,7 +21,6 @@ This is a wrapper around two modules:

22

21

23module Text.Pandoc.Writers.Powerpoint (writePowerpoint) where

22module Text.Pandoc.Writers.Powerpoint (writePowerpoint) where

24

23

25−import Prelude

26import Codec.Archive.Zip

24import Codec.Archive.Zip

27import Text.Pandoc.Definition

25import Text.Pandoc.Definition

28import Text.Pandoc.Walk

26import Text.Pandoc.Walk

src/Text/Pandoc/Writers/Powerpoint/Output.hs−2

@@ -1,5 +1,4 @@

1{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

2−{-# LANGUAGE NoImplicitPrelude #-}

3{-# LANGUAGE PatternGuards #-}

2{-# LANGUAGE PatternGuards #-}

4{- |

3{- |

5 Module : Text.Pandoc.Writers.Powerpoint.Output

4 Module : Text.Pandoc.Writers.Powerpoint.Output

@@ -17,7 +16,6 @@ Text.Pandoc.Writers.Powerpoint.Presentation) to a zip archive.

17module Text.Pandoc.Writers.Powerpoint.Output ( presentationToArchive

16module Text.Pandoc.Writers.Powerpoint.Output ( presentationToArchive

18 ) where

17 ) where

19

18

20−import Prelude

21import Control.Monad.Except (throwError, catchError)

19import Control.Monad.Except (throwError, catchError)

22import Control.Monad.Reader

20import Control.Monad.Reader

23import Control.Monad.State

21import Control.Monad.State

src/Text/Pandoc/Writers/Powerpoint/Presentation.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE PatternGuards #-}

2{-# LANGUAGE PatternGuards #-}

4{-# LANGUAGE ViewPatterns #-}

3{-# LANGUAGE ViewPatterns #-}

@@ -43,7 +42,6 @@ module Text.Pandoc.Writers.Powerpoint.Presentation ( documentToPresentation

43 ) where

42 ) where

44

43

45

44

46−import Prelude

47import Control.Monad.Reader

45import Control.Monad.Reader

48import Control.Monad.State

46import Control.Monad.State

49import Data.List (intercalate)

47import Data.List (intercalate)

src/Text/Pandoc/Writers/RST.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -15,7 +14,6 @@ Conversion of 'Pandoc' documents to reStructuredText.

15reStructuredText: <http://docutils.sourceforge.net/rst.html>

14reStructuredText: <http://docutils.sourceforge.net/rst.html>

16-}

15-}

17module Text.Pandoc.Writers.RST ( writeRST, flatten ) where

16module Text.Pandoc.Writers.RST ( writeRST, flatten ) where

18−import Prelude

19import Control.Monad.State.Strict

17import Control.Monad.State.Strict

20import Data.Char (isSpace)

18import Data.Char (isSpace)

21import Data.List (transpose, intersperse)

19import Data.List (transpose, intersperse)

src/Text/Pandoc/Writers/RTF.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE ScopedTypeVariables #-}

1{-# LANGUAGE ScopedTypeVariables #-}

3{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE OverloadedStrings #-}

4{- |

3{- |

@@ -14,7 +13,6 @@ Conversion of 'Pandoc' documents to RTF (rich text format).

14-}

13-}

15module Text.Pandoc.Writers.RTF ( writeRTF

14module Text.Pandoc.Writers.RTF ( writeRTF

16 ) where

15 ) where

17−import Prelude

18import Control.Monad.Except (catchError, throwError)

16import Control.Monad.Except (catchError, throwError)

19import Control.Monad

17import Control.Monad

20import qualified Data.ByteString as B

18import qualified Data.ByteString as B

src/Text/Pandoc/Writers/Roff.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Writers.Roff

3 Module : Text.Pandoc.Writers.Roff

@@ -21,7 +20,6 @@ module Text.Pandoc.Writers.Roff (

21 , escapeString

20 , escapeString

22 , withFontFeature

21 , withFontFeature

23 ) where

22 ) where

24−import Prelude

25import Data.Char (ord, isAscii)

23import Data.Char (ord, isAscii)

26import Control.Monad.State.Strict

24import Control.Monad.State.Strict

27import qualified Data.Map as Map

25import qualified Data.Map as Map

src/Text/Pandoc/Writers/Shared.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE FlexibleContexts #-}

1{-# LANGUAGE FlexibleContexts #-}

3{-# LANGUAGE ScopedTypeVariables #-}

2{-# LANGUAGE ScopedTypeVariables #-}

4{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE OverloadedStrings #-}

@@ -37,7 +36,6 @@ module Text.Pandoc.Writers.Shared (

37 , endsWithPlain

36 , endsWithPlain

38 )

37 )

39where

38where

40−import Prelude

41import Safe (lastMay)

39import Safe (lastMay)

42import qualified Data.ByteString.Lazy as BL

40import qualified Data.ByteString.Lazy as BL

43import Data.Maybe (fromMaybe, isNothing)

41import Data.Maybe (fromMaybe, isNothing)

src/Text/Pandoc/Writers/TEI.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE PatternGuards #-}

2{-# LANGUAGE PatternGuards #-}

4{- |

3{- |

@@ -13,7 +12,6 @@

13Conversion of 'Pandoc' documents to Docbook XML.

12Conversion of 'Pandoc' documents to Docbook XML.

14-}

13-}

15module Text.Pandoc.Writers.TEI (writeTEI) where

14module Text.Pandoc.Writers.TEI (writeTEI) where

16−import Prelude

17import Data.Text (Text)

15import Data.Text (Text)

18import qualified Data.Text as T

16import qualified Data.Text as T

19import Text.Pandoc.Class (PandocMonad, report)

17import Text.Pandoc.Class (PandocMonad, report)

src/Text/Pandoc/Writers/Texinfo.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{- |

2{- |

4 Module : Text.Pandoc.Writers.Texinfo

3 Module : Text.Pandoc.Writers.Texinfo

@@ -13,7 +12,6 @@

13Conversion of 'Pandoc' format into Texinfo.

12Conversion of 'Pandoc' format into Texinfo.

14-}

13-}

15module Text.Pandoc.Writers.Texinfo ( writeTexinfo ) where

14module Text.Pandoc.Writers.Texinfo ( writeTexinfo ) where

16−import Prelude

17import Control.Monad.Except (throwError)

15import Control.Monad.Except (throwError)

18import Control.Monad.State.Strict

16import Control.Monad.State.Strict

19import Data.Char (chr, ord)

17import Data.Char (chr, ord)

src/Text/Pandoc/Writers/Textile.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -15,7 +14,6 @@ Conversion of 'Pandoc' documents to Textile markup.

15Textile: <http://thresholdstate.com/articles/4312/the-textile-reference-manual>

14Textile: <http://thresholdstate.com/articles/4312/the-textile-reference-manual>

16-}

15-}

17module Text.Pandoc.Writers.Textile ( writeTextile ) where

16module Text.Pandoc.Writers.Textile ( writeTextile ) where

18−import Prelude

19import Control.Monad.State.Strict

17import Control.Monad.State.Strict

20import Data.Char (isSpace)

18import Data.Char (isSpace)

21import Data.Text (Text)

19import Data.Text (Text)

src/Text/Pandoc/Writers/XWiki.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-

2{-

4Copyright (C) 2008-2017 John MacFarlane <jgm@berkeley.edu>

3Copyright (C) 2008-2017 John MacFarlane <jgm@berkeley.edu>

@@ -34,7 +33,6 @@ XWiki Syntax: <http://www.xwiki.org/xwiki/bin/view/Documentation/UserGuide/Feat

34-}

33-}

35

34

36module Text.Pandoc.Writers.XWiki ( writeXWiki ) where

35module Text.Pandoc.Writers.XWiki ( writeXWiki ) where

37−import Prelude

38import Control.Monad.Reader (ReaderT, asks, local, runReaderT)

36import Control.Monad.Reader (ReaderT, asks, local, runReaderT)

39import qualified Data.Set as Set

37import qualified Data.Set as Set

40import qualified Data.Text as Text

38import qualified Data.Text as Text

src/Text/Pandoc/Writers/ZimWiki.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -17,7 +16,6 @@ http://zim-wiki.org/manual/Help/Wiki_Syntax.html

17-}

16-}

18

17

19module Text.Pandoc.Writers.ZimWiki ( writeZimWiki ) where

18module Text.Pandoc.Writers.ZimWiki ( writeZimWiki ) where

20−import Prelude

21import Control.Monad (zipWithM)

19import Control.Monad (zipWithM)

22import Control.Monad.State.Strict (StateT, evalStateT, gets, modify)

20import Control.Monad.State.Strict (StateT, evalStateT, gets, modify)

23import Data.Default (Default (..))

21import Data.Default (Default (..))

src/Text/Pandoc/XML.hs−2

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

1−{-# LANGUAGE NoImplicitPrelude #-}

2{-# LANGUAGE OverloadedStrings #-}

1{-# LANGUAGE OverloadedStrings #-}

3{-# LANGUAGE ViewPatterns #-}

2{-# LANGUAGE ViewPatterns #-}

4{- |

3{- |

@@ -25,7 +24,6 @@ module Text.Pandoc.XML ( escapeCharForXML,

25 html5Attributes,

24 html5Attributes,

26 rdfaAttributes ) where

25 rdfaAttributes ) where

27

26

28−import Prelude

29import Data.Char (isAscii, isSpace, ord)

27import Data.Char (isAscii, isSpace, ord)

30import Data.Text (Text)

28import Data.Text (Text)

31import qualified Data.Text as T

29import qualified Data.Text as T