23b693c · typeable/pandoc

benchmark/benchmark-pandoc.hs−1

compare with master

unifiedsplit

@@ -15,7 +15,6 @@ You should have received a copy of the GNU General Public License

15along with this program; if not, write to the Free Software

16Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

17-}

18−import Prelude

19import Text.Pandoc

18import Text.Pandoc

20import Criterion.Main

19import Criterion.Main

21import Criterion.Types (Config(..))

20import Criterion.Types (Config(..))

pandoc.cabal+4−4

@@ -303,7 +303,7 @@ Library

303 other-modules: Text.Pandoc.Data

304 if os(windows)

305 Cpp-options: -D_WINDOWS

306− Ghc-Options: -rtsopts -Wall -fno-warn-unused-do-bind -XNoImplicitPrelude

306+ Ghc-Options: -rtsopts -Wall -fno-warn-unused-do-bind

307 Ghc-Prof-Options: -fprof-auto-exported -rtsopts

308 Default-Language: Haskell98

309 Other-Extensions: PatternGuards, OverloadedStrings,

@@ -420,7 +420,7 @@ Executable pandoc

420 Build-Depends: network-uri >= 2.6 && < 2.7, network >= 2.6

421 else

422 Build-Depends: network >= 2 && < 2.6

423− Ghc-Options: -rtsopts -with-rtsopts=-K16m -Wall -fno-warn-unused-do-bind -XNoImplicitPrelude

423+ Ghc-Options: -rtsopts -with-rtsopts=-K16m -Wall -fno-warn-unused-do-bind

424 Ghc-Prof-Options: -fprof-auto-exported -rtsopts -with-rtsopts=-K16m

425 if os(windows)

426 Cpp-options: -D_WINDOWS

@@ -496,7 +496,7 @@ Test-Suite test-pandoc

496 Tests.Writers.Docx

497 Tests.Writers.RST

498 Prelude

499− Ghc-Options: -rtsopts -Wall -fno-warn-unused-do-bind -threaded -XNoImplicitPrelude

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

500 Default-Language: Haskell98

501

502benchmark benchmark-pandoc

@@ -507,6 +507,6 @@ benchmark benchmark-pandoc

507 base >= 4.2 && < 5,

508 syb >= 0.1 && < 0.7,

509 criterion >= 1.0 && < 1.2

510− Ghc-Options: -rtsopts -Wall -fno-warn-unused-do-bind -XNoImplicitPrelude

510+ Ghc-Options: -rtsopts -Wall -fno-warn-unused-do-bind

511 Default-Language: Haskell98

512 Other-Modules: Prelude

pandoc.hs−1

@@ -30,7 +30,6 @@ Parses command-line options and calls the appropriate readers and

30writers.

31-}

32module Main where

33−import Prelude

34import Text.Pandoc

33import Text.Pandoc

35import Text.Pandoc.Builder (setMeta)

34import Text.Pandoc.Builder (setMeta)

36import Text.Pandoc.PDF (makePDF)

35import Text.Pandoc.PDF (makePDF)

src/Text/Pandoc.hs−1

@@ -150,7 +150,6 @@ import Text.Pandoc.Writers.RST

150import Text.Pandoc.Writers.LaTeX

151import Text.Pandoc.Writers.ConTeXt

152import Text.Pandoc.Writers.Texinfo

153−import Prelude

154import Text.Pandoc.Writers.HTML

153import Text.Pandoc.Writers.HTML

155import Text.Pandoc.Writers.ODT

154import Text.Pandoc.Writers.ODT

156import Text.Pandoc.Writers.Docx

155import Text.Pandoc.Writers.Docx

src/Text/Pandoc/Asciify.hs−1

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

30-}

31module Text.Pandoc.Asciify (toAsciiChar)

32where

33−import Prelude

34import qualified Data.Map as M

33import qualified Data.Map as M

35import Data.Char (isAscii)

34import Data.Char (isAscii)

36

35

src/Text/Pandoc/CSS.hs−1

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

3 )

4where

5

6−import Prelude

7import Text.Pandoc.Shared (trim)

6import Text.Pandoc.Shared (trim)

8import Text.Parsec

7import Text.Parsec

9import Text.Parsec.String

8import Text.Parsec.String

src/Text/Pandoc/Compat/Directory.hs+1

@@ -5,6 +5,7 @@ module Text.Pandoc.Compat.Directory ( getModificationTime )

5#if MIN_VERSION_directory(1,2,0)

6import System.Directory

7

8+

8#else

9#else

9import qualified System.Directory as S

10import qualified System.Directory as S

10import Data.Time.Clock (UTCTime)

11import Data.Time.Clock (UTCTime)

src/Text/Pandoc/Compat/Except.hs−1

@@ -9,7 +9,6 @@ module Text.Pandoc.Compat.Except ( ExceptT

9 , catchError )

10 where

11

12−import Prelude

13#if MIN_VERSION_mtl(2,2,1)

12#if MIN_VERSION_mtl(2,2,1)

14import Control.Monad.Except

13import Control.Monad.Except

15

14

src/Text/Pandoc/Compat/TagSoupEntity.hs−1

@@ -2,7 +2,6 @@

2module Text.Pandoc.Compat.TagSoupEntity (lookupEntity

3 ) where

4

5−import Prelude

6import qualified Text.HTML.TagSoup.Entity as TE

5import qualified Text.HTML.TagSoup.Entity as TE

7

6

8lookupEntity :: String -> Maybe Char

7lookupEntity :: String -> Maybe Char

src/Text/Pandoc/Error.hs−1

@@ -31,7 +31,6 @@ during parsing.

31-}

32module Text.Pandoc.Error (PandocError(..), handleError) where

33

34−import Prelude

35import Text.Parsec.Error

34import Text.Parsec.Error

36import Text.Parsec.Pos hiding (Line)

35import Text.Parsec.Pos hiding (Line)

37import Text.Pandoc.Compat.Except

36import Text.Pandoc.Compat.Except

src/Text/Pandoc/Highlighting.hs−1

@@ -48,7 +48,6 @@ module Text.Pandoc.Highlighting ( languages

48 , fromListingsLanguage

49 , toListingsLanguage

50 ) where

51−import Prelude

52import Text.Pandoc.Definition

51import Text.Pandoc.Definition

53import Text.Pandoc.Shared (safeRead)

52import Text.Pandoc.Shared (safeRead)

54import Text.Highlighting.Kate

53import Text.Highlighting.Kate

src/Text/Pandoc/ImageSize.hs−1

@@ -31,7 +31,6 @@ Functions for determining the size of a PNG, JPEG, or GIF image.

31-}

32module Text.Pandoc.ImageSize ( ImageType(..), imageType, imageSize,

33 sizeInPixels, sizeInPoints ) where

34−import Prelude

35import Data.ByteString (ByteString, unpack)

34import Data.ByteString (ByteString, unpack)

36import qualified Data.ByteString.Char8 as B

35import qualified Data.ByteString.Char8 as B

37import qualified Data.ByteString.Lazy as BL

36import qualified Data.ByteString.Lazy as BL

src/Text/Pandoc/MIME.hs−1

@@ -29,7 +29,6 @@ Mime type lookup for ODT writer.

29-}

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

31 extensionFromMimeType )where

32−import Prelude

33import System.FilePath

32import System.FilePath

34import Data.Char ( toLower )

33import Data.Char ( toLower )

35import Data.List (isPrefixOf, isSuffixOf)

34import Data.List (isPrefixOf, isSuffixOf)

src/Text/Pandoc/MediaBag.hs−1

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

36 mediaDirectory,

37 extractMediaBag

38 ) where

39−import Prelude

40import System.FilePath

39import System.FilePath

41import qualified System.FilePath.Posix as Posix

40import qualified System.FilePath.Posix as Posix

42import System.Directory (createDirectoryIfMissing)

41import System.Directory (createDirectoryIfMissing)

src/Text/Pandoc/Options.hs−1

@@ -47,7 +47,6 @@ module Text.Pandoc.Options ( Extension(..)

47 , def

48 , isEnabled

49 ) where

50−import Prelude

51import Data.Set (Set)

50import Data.Set (Set)

52import qualified Data.Set as Set

51import qualified Data.Set as Set

53import Data.Default

52import Data.Default

src/Text/Pandoc/PDF.hs−1

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

30-}

31module Text.Pandoc.PDF ( makePDF ) where

32

33−import Prelude

34import Data.ByteString.Lazy (ByteString)

33import Data.ByteString.Lazy (ByteString)

35import qualified Data.ByteString.Lazy as B

34import qualified Data.ByteString.Lazy as B

36import qualified Data.ByteString.Lazy.Char8 as BC

35import qualified Data.ByteString.Lazy.Char8 as BC

src/Text/Pandoc/Parsing.hs−1

@@ -180,7 +180,6 @@ import Data.Char ( toLower, toUpper, ord, chr, isAscii, isAlphaNum,

180 isHexDigit, isSpace )

181import Data.List ( intercalate, transpose, isSuffixOf )

182import Text.Pandoc.Shared

183−import Prelude

184import qualified Data.Map as M

183import qualified Data.Map as M

185import Text.TeXMath.Readers.TeX.Macros (applyMacros, Macro,

184import Text.TeXMath.Readers.TeX.Macros (applyMacros, Macro,

186 parseMacroDefinitions)

185 parseMacroDefinitions)

src/Text/Pandoc/Pretty.hs−1

@@ -74,7 +74,6 @@ module Text.Pandoc.Pretty (

74 )

75

76where

77−import Prelude

78import Data.Sequence (Seq, fromList, (<|), singleton, mapWithIndex, viewl, ViewL(..))

77import Data.Sequence (Seq, fromList, (<|), singleton, mapWithIndex, viewl, ViewL(..))

79import Data.Foldable (toList)

78import Data.Foldable (toList)

80import Data.List (intercalate)

79import Data.List (intercalate)

src/Text/Pandoc/Process.hs−1

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

29-}

30module Text.Pandoc.Process (pipeProcess)

31where

32−import Prelude

33import System.Process

32import System.Process

34import System.Exit (ExitCode (..))

33import System.Exit (ExitCode (..))

35import Control.Exception

34import Control.Exception

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

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

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

33where

34

35−import Prelude

36import CMark

35import CMark

37import Data.Text (unpack, pack)

36import Data.Text (unpack, pack)

38import Data.List (groupBy)

37import Data.List (groupBy)

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

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

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

2−import Prelude

3import Data.Char (toUpper)

2import Data.Char (toUpper)

4import Text.Pandoc.Shared (safeRead)

3import Text.Pandoc.Shared (safeRead)

5import Text.Pandoc.Options

4import Text.Pandoc.Options

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

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

74 ( readDocx

75 ) where

76

77−import Prelude

78import Codec.Archive.Zip

77import Codec.Archive.Zip

79import Text.Pandoc.Definition

78import Text.Pandoc.Definition

80import Text.Pandoc.Options

79import Text.Pandoc.Options

src/Text/Pandoc/Readers/Docx/Fonts.hs−1

@@ -29,7 +29,6 @@ Utilities to convert between font codepoints and unicode characters.

29-}

30module Text.Pandoc.Readers.Docx.Fonts (getUnicode, Font(..)) where

31

32−import Prelude

33

32

34-- | Enumeration of recognised fonts

33-- | Enumeration of recognised fonts

35data Font = Symbol -- ^ <http://en.wikipedia.org/wiki/Symbol_(typeface) Adobe Symbol>

34data Font = Symbol -- ^ <http://en.wikipedia.org/wiki/Symbol_(typeface) Adobe Symbol>

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

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

33 , listParagraphDivs

34 ) where

35

36−import Prelude

37import Text.Pandoc.JSON

36import Text.Pandoc.JSON

38import Text.Pandoc.Generic (bottomUp)

37import Text.Pandoc.Generic (bottomUp)

39import Text.Pandoc.Shared (trim)

38import Text.Pandoc.Shared (trim)

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

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

50 , Cell(..)

51 , archiveToDocx

52 ) where

53−import Prelude

54import Codec.Archive.Zip

53import Codec.Archive.Zip

55import Text.XML.Light

54import Text.XML.Light

56import Data.Maybe

55import Data.Maybe

src/Text/Pandoc/Readers/Docx/Reducible.hs−1

@@ -7,7 +7,6 @@ module Text.Pandoc.Readers.Docx.Reducible ( concatReduce

7 where

8

9

10−import Prelude

11import Text.Pandoc.Builder

10import Text.Pandoc.Builder

12import Data.List

11import Data.List

13import Data.Sequence (ViewR(..), ViewL(..), viewl, viewr)

12import Data.Sequence (ViewR(..), ViewL(..), viewl, viewr)

src/Text/Pandoc/Readers/Docx/StyleMap.hs−1

@@ -5,7 +5,6 @@ module Text.Pandoc.Readers.Docx.StyleMap ( StyleMaps(..)

5 , hasStyleName

6 ) where

7

8−import Prelude

9import Text.XML.Light

8import Text.XML.Light

10import Text.Pandoc.Readers.Docx.Util

9import Text.Pandoc.Readers.Docx.Util

11import Control.Monad.State

10import Control.Monad.State

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

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

5 , elemToNameSpaces

6 ) where

7

8−import Prelude

9import Text.XML.Light

8import Text.XML.Light

10import Data.Maybe (mapMaybe)

9import Data.Maybe (mapMaybe)

11

10

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

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

8 (readEPUB)

9 where

10

11−import Prelude

12import Text.XML.Light

11import Text.XML.Light

13import Text.Pandoc.Definition hiding (Attr)

12import Text.Pandoc.Definition hiding (Attr)

14import Text.Pandoc.Walk (walk, query)

13import Text.Pandoc.Walk (walk, query)

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

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

38 , isCommentTag

39 ) where

40

41−import Prelude

42import Text.HTML.TagSoup

41import Text.HTML.TagSoup

43import Text.HTML.TagSoup.Match

42import Text.HTML.TagSoup.Match

44import Text.Pandoc.Definition

43import Text.Pandoc.Definition

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

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

14 ( readHaddock

15 ) where

16

17−import Prelude

18import Text.Pandoc.Builder (Blocks, Inlines)

17import Text.Pandoc.Builder (Blocks, Inlines)

19import qualified Text.Pandoc.Builder as B

18import qualified Text.Pandoc.Builder as B

20import Text.Pandoc.Shared (trim, splitBy)

19import Text.Pandoc.Shared (trim, splitBy)

@@ -130,7 +129,7 @@ makeExample prompt expression result =

130 <> (mconcat $ intersperse B.linebreak $ map coder result')

129 <> (mconcat $ intersperse B.linebreak $ map coder result')

131 where

130 where

132 -- 1. drop trailing whitespace from the prompt, remember the prefix

131 -- 1. drop trailing whitespace from the prompt, remember the prefix

133− prefix = takeWhile (`elem` [' ','\t']) prompt

132+ prefix = takeWhile (`elem` " \t") prompt

134

133

135 -- 2. drop, if possible, the exact same sequence of whitespace

134 -- 2. drop, if possible, the exact same sequence of whitespace

136 -- characters from each result line

135 -- characters from each result line

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

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

35 handleIncludes

36 ) where

37

38−import Prelude

39import Text.Pandoc.Definition

38import Text.Pandoc.Definition

40import Text.Pandoc.Walk

39import Text.Pandoc.Walk

41import Text.Pandoc.Shared

40import Text.Pandoc.Shared

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

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

32module Text.Pandoc.Readers.Markdown ( readMarkdown,

33 readMarkdownWithWarnings ) where

34

35−import Prelude

36import Data.List ( transpose, sortBy, findIndex, intersperse, intercalate )

35import Data.List ( transpose, sortBy, findIndex, intersperse, intercalate )

37import qualified Data.Map as M

36import qualified Data.Map as M

38import Data.Scientific (coefficient, base10Exponent)

37import Data.Scientific (coefficient, base10Exponent)

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

@@ -36,7 +36,6 @@ _ parse templates?

36-}

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

38

39−import Prelude

40import Text.Pandoc.Definition

39import Text.Pandoc.Definition

41import qualified Text.Pandoc.Builder as B

40import qualified Text.Pandoc.Builder as B

42import Text.Pandoc.Builder (Inlines, Blocks, trimInlines)

41import Text.Pandoc.Builder (Inlines, Blocks, trimInlines)

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

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

30-}

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

32

33−import Prelude

34import Text.Pandoc.Definition

33import Text.Pandoc.Definition

35import Text.Pandoc.Shared (safeRead)

34import Text.Pandoc.Shared (safeRead)

36

35

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

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

1{-# LANGUAGE FlexibleContexts #-}

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

3−import Prelude

4import Data.Char (toUpper)

3import Data.Char (toUpper)

5import Text.Pandoc.Options

4import Text.Pandoc.Options

6import Text.Pandoc.Definition

5import Text.Pandoc.Definition

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

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

32

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

34

35−import Prelude

36import Codec.Archive.Zip

35import Codec.Archive.Zip

37import qualified Text.XML.Light as XML

36import qualified Text.XML.Light as XML

38

37

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

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

39-- We export everything

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

41

42−import Prelude

43import Control.Arrow

42import Control.Arrow

44import Control.Monad ( join, MonadPlus(..) )

43import Control.Monad ( join, MonadPlus(..) )

45

44

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

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

39, read_body

40) where

41

42−import Prelude

43import Control.Arrow

42import Control.Arrow

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

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

45

44

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

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

39-- We export everything

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

41

42−import Prelude

43import Control.Applicative

42import Control.Applicative

44import Control.Monad

43import Control.Monad

45

44

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

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

31

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

33

34−import Prelude

35import qualified Data.Map as M

34import qualified Data.Map as M

36

35

37--

36--

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

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

30

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

32

33−import Prelude

34import qualified Data.Map as M

33import qualified Data.Map as M

35import qualified Data.Set as S

34import qualified Data.Set as S

36

35

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

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

53, composition

54) where

55

56−import Prelude

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

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

58import qualified Control.Category as Cat ( id )

57import qualified Control.Category as Cat ( id )

59import Control.Monad ( msum )

58import Control.Monad ( msum )

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

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

116, matchContent

117) where

118

119−import Prelude

120import Control.Applicative hiding ( liftA, liftA2 )

119import Control.Applicative hiding ( liftA, liftA2 )

121import Control.Monad ( MonadPlus )

120import Control.Monad ( MonadPlus )

122import Control.Arrow

121import Control.Arrow

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

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

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

32 ) where

33

34−import Prelude

35import Data.List ( isPrefixOf )

34import Data.List ( isPrefixOf )

36import Data.Maybe ( fromMaybe, listToMaybe )

35import Data.Maybe ( fromMaybe, listToMaybe )

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

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

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

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

70, readStylesAt

71) where

72

73−import Prelude

74import Control.Arrow

73import Control.Arrow

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

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

76

75

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

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

30-}

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

32

33−import Prelude

34import qualified Text.Pandoc.Builder as B

33import qualified Text.Pandoc.Builder as B

35import Text.Pandoc.Builder ( Inlines, Blocks, HasMeta(..),

34import Text.Pandoc.Builder ( Inlines, Blocks, HasMeta(..),

36 trimInlines )

35 trimInlines )

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

@@ -33,7 +33,6 @@ module Text.Pandoc.Readers.RST (

33 readRST,

34 readRSTWithWarnings

35 ) where

36−import Prelude

37import Text.Pandoc.Definition

36import Text.Pandoc.Definition

38import Text.Pandoc.Builder (setMeta, fromList)

37import Text.Pandoc.Builder (setMeta, fromList)

39import Text.Pandoc.Shared

38import Text.Pandoc.Shared

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

@@ -33,7 +33,6 @@ module Text.Pandoc.Readers.TWiki ( readTWiki

33 , readTWikiWithWarnings

34 ) where

35

36−import Prelude

37import Text.Pandoc.Definition

36import Text.Pandoc.Definition

38import qualified Text.Pandoc.Builder as B

37import qualified Text.Pandoc.Builder as B

39import Text.Pandoc.Options

38import Text.Pandoc.Options

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

@@ -29,7 +29,6 @@ Conversion of TeX math to a list of 'Pandoc' inline elements.

29-}

30module Text.Pandoc.Readers.TeXMath ( texMathToInlines ) where

31

32−import Prelude

33import Text.Pandoc.Definition

32import Text.Pandoc.Definition

34import Text.TeXMath

33import Text.TeXMath

35

34

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

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

51

52

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

54−import Prelude

55import Text.Pandoc.Definition

54import Text.Pandoc.Definition

56import Text.Pandoc.Builder (Inlines, Blocks, trimInlines)

55import Text.Pandoc.Builder (Inlines, Blocks, trimInlines)

57import qualified Text.Pandoc.Builder as B

56import qualified Text.Pandoc.Builder as B

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

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

32 , readTxt2TagsNoMacros)

33 where

34

35−import Prelude

36import qualified Text.Pandoc.Builder as B

35import qualified Text.Pandoc.Builder as B

37import Text.Pandoc.Builder ( Inlines, Blocks, trimInlines )

36import Text.Pandoc.Builder ( Inlines, Blocks, trimInlines )

38import Text.Pandoc.Definition

37import Text.Pandoc.Definition

src/Text/Pandoc/SelfContained.hs−1

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

31the HTML using data URIs.

32-}

33module Text.Pandoc.SelfContained ( makeSelfContained ) where

34−import Prelude

35import Text.HTML.TagSoup

34import Text.HTML.TagSoup

36import Network.URI (isURI, escapeURIString, URI(..), parseURI)

35import Network.URI (isURI, escapeURIString, URI(..), parseURI)

37import Data.ByteString.Base64

36import Data.ByteString.Base64

src/Text/Pandoc/Shared.hs+5−6

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

97 pandocVersion

98 ) where

99

100−import Prelude

101import Text.Pandoc.Definition

100import Text.Pandoc.Definition

102import Text.Pandoc.Walk

101import Text.Pandoc.Walk

103import Text.Pandoc.MediaBag (MediaBag, lookupMedia)

102import Text.Pandoc.MediaBag (MediaBag, lookupMedia)

@@ -247,7 +246,7 @@ trim = triml . trimr

247

246

248-- | Remove leading space (including newlines) from string.

247-- | Remove leading space (including newlines) from string.

249triml :: String -> String

248triml :: String -> String

250−triml = dropWhile (`elem` [' ','\r','\n','\t'])

249+triml = dropWhile (`elem` " \r\n\t")

251

250

252-- | Remove trailing space (including newlines) from string.

251-- | Remove trailing space (including newlines) from string.

253trimr :: String -> String

252trimr :: String -> String

@@ -660,7 +659,7 @@ inlineListToIdentifier :: [Inline] -> String

660inlineListToIdentifier =

659inlineListToIdentifier =

661 dropWhile (not . isAlpha) . intercalate "-" . words .

660 dropWhile (not . isAlpha) . intercalate "-" . words .

662 map (nbspToSp . toLower) .

661 map (nbspToSp . toLower) .

663− filter (\c -> isLetter c || isDigit c || c `elem` ['_','-','.',' ']) .

662+ filter (\c -> isLetter c || isDigit c || c `elem` "_-. ") .

664 stringify

663 stringify

665 where nbspToSp '\160' = ' '

664 where nbspToSp '\160' = ' '

666 nbspToSp x = x

665 nbspToSp x = x

@@ -914,9 +913,9 @@ fetchItem' media sourceURL s = do

914-- | Read from a URL and return raw data and maybe mime type.

913-- | Read from a URL and return raw data and maybe mime type.

915openURL :: String -> IO (Either E.SomeException (BS.ByteString, Maybe MimeType))

914openURL :: String -> IO (Either E.SomeException (BS.ByteString, Maybe MimeType))

916openURL u

915openURL u

917− | Just u'' <- stripPrefix "data:" u =

916+ | Just u' <- stripPrefix "data:" u =

918− let mime = takeWhile (/=',') u''

917+ let mime = takeWhile (/=',') u'

919− contents = B8.pack $ unEscapeString $ drop 1 $ dropWhile (/=',') u''

918+ contents = B8.pack $ unEscapeString $ drop 1 $ dropWhile (/=',') u'

920 in return $ Right (decodeLenient contents, Just mime)

919 in return $ Right (decodeLenient contents, Just mime)

921#ifdef HTTP_CLIENT

920#ifdef HTTP_CLIENT

922 | otherwise = withSocketsDo $ E.try $ do

921 | otherwise = withSocketsDo $ E.try $ do

src/Text/Pandoc/Slides.hs−1

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

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

30-}

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

32−import Prelude

33import Text.Pandoc.Definition

32import Text.Pandoc.Definition

34

33

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

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

src/Text/Pandoc/Templates.hs−1

@@ -93,7 +93,6 @@ module Text.Pandoc.Templates ( renderTemplate

93 , Template

94 , getDefaultTemplate ) where

95

96−import Prelude

97import Data.Char (isAlphaNum)

96import Data.Char (isAlphaNum)

98import Control.Monad (guard, when)

97import Control.Monad (guard, when)

99import Data.Aeson (ToJSON(..), Value(..))

98import Data.Aeson (ToJSON(..), Value(..))

src/Text/Pandoc/UUID.hs−1

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

31

32module Text.Pandoc.UUID ( UUID, getRandomUUID ) where

33

34−import Prelude

35import Text.Printf ( printf )

34import Text.Printf ( printf )

36import System.Random ( randomIO )

35import System.Random ( randomIO )

37import Data.Word

36import Data.Word

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

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

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

38-}

39module Text.Pandoc.Writers.AsciiDoc (writeAsciiDoc) where

40−import Prelude

41import Text.Pandoc.Definition

40import Text.Pandoc.Definition

42import Text.Pandoc.Templates (renderTemplate')

41import Text.Pandoc.Templates (renderTemplate')

43import Text.Pandoc.Shared

42import Text.Pandoc.Shared

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

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

31-}

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

33

34−import Prelude

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

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

36import Text.Pandoc.Definition

35import Text.Pandoc.Definition

37import Text.Pandoc.Shared (isTightList)

36import Text.Pandoc.Shared (isTightList)

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

@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

29Conversion of 'Pandoc' format into ConTeXt.

30-}

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

32−import Prelude

33import Text.Pandoc.Definition

32import Text.Pandoc.Definition

34import Text.Pandoc.Shared

33import Text.Pandoc.Shared

35import Text.Pandoc.Writers.Shared

34import Text.Pandoc.Writers.Shared

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

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

35a lua writer.

36-}

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

38−import Prelude

39import Text.Pandoc.Definition

38import Text.Pandoc.Definition

40import Text.Pandoc.Options

39import Text.Pandoc.Options

41import Data.List ( intersperse )

40import Data.List ( intersperse )

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

@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

29Conversion of 'Pandoc' documents to Docbook XML.

30-}

31module Text.Pandoc.Writers.Docbook ( writeDocbook) where

32−import Prelude

33import Text.Pandoc.Definition

32import Text.Pandoc.Definition

34import Text.Pandoc.XML

33import Text.Pandoc.XML

35import Text.Pandoc.Shared

34import Text.Pandoc.Shared

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

@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

29Conversion of 'Pandoc' documents to docx.

30-}

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

32−import Prelude

33import Data.List ( intercalate, isPrefixOf, isSuffixOf )

32import Data.List ( intercalate, isPrefixOf, isSuffixOf )

34import qualified Data.ByteString as B

33import qualified Data.ByteString as B

35import qualified Data.ByteString.Lazy as BL

34import qualified Data.ByteString.Lazy as BL

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

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

39-}

40

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

42−import Prelude

43import Text.Pandoc.Definition

42import Text.Pandoc.Definition

44import Text.Pandoc.Options ( WriterOptions(

43import Text.Pandoc.Options ( WriterOptions(

45 writerTableOfContents

44 writerTableOfContents

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

@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

29Conversion of 'Pandoc' documents to EPUB.

30-}

31module Text.Pandoc.Writers.EPUB ( writeEPUB ) where

32−import Prelude

33import Data.IORef ( IORef, newIORef, readIORef, modifyIORef )

32import Data.IORef ( IORef, newIORef, readIORef, modifyIORef )

34import qualified Data.Map as M

33import qualified Data.Map as M

35import Data.Maybe ( fromMaybe, catMaybes )

34import Data.Maybe ( fromMaybe, catMaybes )

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

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

27-}

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

29

30−import Prelude

31import Control.Monad.State (StateT, evalStateT, get, modify)

30import Control.Monad.State (StateT, evalStateT, get, modify)

32import Control.Monad.State (liftM, liftM2, liftIO)

31import Control.Monad.State (liftM, liftM2, liftIO)

33import Data.ByteString.Base64 (encode)

32import Data.ByteString.Base64 (encode)

src/Text/Pandoc/Writers/HTML.hs−1

@@ -30,7 +30,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

30Conversion of 'Pandoc' documents to HTML.

31-}

32module Text.Pandoc.Writers.HTML ( writeHtml , writeHtmlString ) where

33−import Prelude

34import Text.Pandoc.Definition

33import Text.Pandoc.Definition

35import Text.Pandoc.Shared

34import Text.Pandoc.Shared

36import Text.Pandoc.Writers.Shared

35import Text.Pandoc.Writers.Shared

src/Text/Pandoc/Writers/Haddock.hs−1

@@ -31,7 +31,6 @@ Conversion of 'Pandoc' documents to haddock markup.

31Haddock: <http://www.haskell.org/haddock/doc/html/>

32-}

33module Text.Pandoc.Writers.Haddock (writeHaddock) where

34−import Prelude

35import Text.Pandoc.Definition

34import Text.Pandoc.Definition

36import Text.Pandoc.Templates (renderTemplate')

35import Text.Pandoc.Templates (renderTemplate')

37import Text.Pandoc.Shared

36import Text.Pandoc.Shared

src/Text/Pandoc/Writers/ICML.hs−1

@@ -14,7 +14,6 @@ InCopy is the companion word-processor to Adobe InDesign and ICML documents can

14into InDesign with File -> Place.

15-}

16module Text.Pandoc.Writers.ICML (writeICML) where

17−import Prelude

18import Text.Pandoc.Definition

17import Text.Pandoc.Definition

19import Text.Pandoc.XML

18import Text.Pandoc.XML

20import Text.Pandoc.Writers.Shared

19import Text.Pandoc.Writers.Shared

src/Text/Pandoc/Writers/LaTeX.hs−1

@@ -30,7 +30,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

30Conversion of 'Pandoc' format into LaTeX.

31-}

32module Text.Pandoc.Writers.LaTeX ( writeLaTeX ) where

33−import Prelude

34import Text.Pandoc.Definition

33import Text.Pandoc.Definition

35import Text.Pandoc.Walk

34import Text.Pandoc.Walk

36import Text.Pandoc.Shared

35import Text.Pandoc.Shared

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

@@ -29,7 +29,6 @@ Conversion of 'Pandoc' documents to groff man page format.

29

30-}

31module Text.Pandoc.Writers.Man ( writeMan) where

32−import Prelude

33import Text.Pandoc.Definition

32import Text.Pandoc.Definition

34import Text.Pandoc.Templates

33import Text.Pandoc.Templates

35import Text.Pandoc.Shared

34import Text.Pandoc.Shared

src/Text/Pandoc/Writers/Markdown.hs−1

@@ -31,7 +31,6 @@ Conversion of 'Pandoc' documents to markdown-formatted plain text.

31Markdown: <http://daringfireball.net/projects/markdown/>

32-}

33module Text.Pandoc.Writers.Markdown (writeMarkdown, writePlain) where

34−import Prelude

35import Text.Pandoc.Definition

34import Text.Pandoc.Definition

36import Text.Pandoc.Walk

35import Text.Pandoc.Walk

37import Text.Pandoc.Templates (renderTemplate')

36import Text.Pandoc.Templates (renderTemplate')

src/Text/Pandoc/Writers/MediaWiki.hs−1

@@ -30,7 +30,6 @@ Conversion of 'Pandoc' documents to MediaWiki markup.

30MediaWiki: <http://www.mediawiki.org/wiki/MediaWiki>

31-}

32module Text.Pandoc.Writers.MediaWiki ( writeMediaWiki ) where

33−import Prelude

34import Text.Pandoc.Definition

33import Text.Pandoc.Definition

35import Text.Pandoc.Options

34import Text.Pandoc.Options

36import Text.Pandoc.Shared

35import Text.Pandoc.Shared

src/Text/Pandoc/Writers/Native.hs−1

@@ -34,7 +34,6 @@ metadata.

34-}

35module Text.Pandoc.Writers.Native ( writeNative )

36where

37−import Prelude

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

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

39import Data.List ( intersperse )

38import Data.List ( intersperse )

40import Text.Pandoc.Definition

39import Text.Pandoc.Definition

src/Text/Pandoc/Writers/ODT.hs−1

@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

29Conversion of 'Pandoc' documents to ODT.

30-}

31module Text.Pandoc.Writers.ODT ( writeODT ) where

32−import Prelude

33import Data.IORef

32import Data.IORef

34import Data.List ( isPrefixOf )

33import Data.List ( isPrefixOf )

35import Data.Maybe ( fromMaybe )

34import Data.Maybe ( fromMaybe )

src/Text/Pandoc/Writers/OPML.hs−1

@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

29Conversion of 'Pandoc' documents to OPML XML.

30-}

31module Text.Pandoc.Writers.OPML ( writeOPML) where

32−import Prelude

33import Text.Pandoc.Definition

32import Text.Pandoc.Definition

34import Text.Pandoc.XML

33import Text.Pandoc.XML

35import Text.Pandoc.Writers.Shared

34import Text.Pandoc.Writers.Shared

src/Text/Pandoc/Writers/OpenDocument.hs−1

@@ -30,7 +30,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

30Conversion of 'Pandoc' documents to OpenDocument XML.

31-}

32module Text.Pandoc.Writers.OpenDocument ( writeOpenDocument ) where

33−import Prelude

34import Text.Pandoc.Definition

33import Text.Pandoc.Definition

35import Text.Pandoc.Options

34import Text.Pandoc.Options

36import Text.Pandoc.XML

35import Text.Pandoc.XML

src/Text/Pandoc/Writers/Org.hs−1

@@ -32,7 +32,6 @@ Conversion of 'Pandoc' documents to Emacs Org-Mode.

32Org-Mode: <http://orgmode.org>

33-}

34module Text.Pandoc.Writers.Org ( writeOrg) where

35−import Prelude

36import Text.Pandoc.Definition

35import Text.Pandoc.Definition

37import Text.Pandoc.Options

36import Text.Pandoc.Options

38import Text.Pandoc.Shared

37import Text.Pandoc.Shared

src/Text/Pandoc/Writers/RST.hs−1

@@ -31,7 +31,6 @@ Conversion of 'Pandoc' documents to reStructuredText.

31reStructuredText: <http://docutils.sourceforge.net/rst.html>

32-}

33module Text.Pandoc.Writers.RST ( writeRST ) where

34−import Prelude

35import Text.Pandoc.Definition

34import Text.Pandoc.Definition

36import Text.Pandoc.Options

35import Text.Pandoc.Options

37import Text.Pandoc.Shared

36import Text.Pandoc.Shared

src/Text/Pandoc/Writers/RTF.hs−1

@@ -28,7 +28,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

28Conversion of 'Pandoc' documents to RTF (rich text format).

29-}

30module Text.Pandoc.Writers.RTF ( writeRTF, writeRTFWithEmbeddedImages ) where

31−import Prelude

32import Text.Pandoc.Definition

31import Text.Pandoc.Definition

33import Text.Pandoc.Options

32import Text.Pandoc.Options

34import Text.Pandoc.Shared

33import Text.Pandoc.Shared

src/Text/Pandoc/Writers/Shared.hs−1

@@ -37,7 +37,6 @@ module Text.Pandoc.Writers.Shared (

37 , fixDisplayMath

38 )

39where

40−import Prelude

41import Text.Pandoc.Definition

40import Text.Pandoc.Definition

42import Text.Pandoc.Pretty

41import Text.Pandoc.Pretty

43import Text.Pandoc.XML (escapeStringForXML)

42import Text.Pandoc.XML (escapeStringForXML)

src/Text/Pandoc/Writers/Texinfo.hs−1

@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

29Conversion of 'Pandoc' format into Texinfo.

30-}

31module Text.Pandoc.Writers.Texinfo ( writeTexinfo ) where

32−import Prelude

33import Text.Pandoc.Definition

32import Text.Pandoc.Definition

34import Text.Pandoc.Options

33import Text.Pandoc.Options

35import Text.Pandoc.Shared

34import Text.Pandoc.Shared

src/Text/Pandoc/Writers/Textile.hs−1

@@ -30,7 +30,6 @@ Conversion of 'Pandoc' documents to Textile markup.

30Textile: <http://thresholdstate.com/articles/4312/the-textile-reference-manual>

31-}

32module Text.Pandoc.Writers.Textile ( writeTextile ) where

33−import Prelude

34import Text.Pandoc.Definition

33import Text.Pandoc.Definition

35import Text.Pandoc.Options

34import Text.Pandoc.Options

36import Text.Pandoc.Shared

35import Text.Pandoc.Shared

src/Text/Pandoc/XML.hs−1

@@ -36,7 +36,6 @@ module Text.Pandoc.XML ( escapeCharForXML,

36 toEntities,

37 fromEntities ) where

38

39−import Prelude

40import Text.Pandoc.Pretty

39import Text.Pandoc.Pretty

41import Data.Char (ord, isAscii, isSpace)

40import Data.Char (ord, isAscii, isSpace)

42import Text.Pandoc.Compat.TagSoupEntity (lookupEntity)

41import Text.Pandoc.Compat.TagSoupEntity (lookupEntity)

tests/Tests/Arbitrary.hs−1

@@ -3,7 +3,6 @@

3-- provides Arbitrary instance for Pandoc types

4module Tests.Arbitrary ()

5where

6−import Prelude

7import Test.QuickCheck.Gen

6import Test.QuickCheck.Gen

8import Test.QuickCheck.Arbitrary

7import Test.QuickCheck.Arbitrary

9import Control.Monad (liftM, liftM2)

8import Control.Monad (liftM, liftM2)

tests/Tests/Helpers.hs−1

@@ -9,7 +9,6 @@ module Tests.Helpers ( test

9 )

10 where

11

12−import Prelude

13import Text.Pandoc.Definition

12import Text.Pandoc.Definition

14import Text.Pandoc.Builder (Inlines, Blocks, doc, plain)

13import Text.Pandoc.Builder (Inlines, Blocks, doc, plain)

15import Test.Framework

14import Test.Framework

tests/Tests/Old.hs−1

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

1module Tests.Old (tests) where

2

3−import Prelude

4import Test.Framework (testGroup, Test )

3import Test.Framework (testGroup, Test )

5import Test.Framework.Providers.HUnit

4import Test.Framework.Providers.HUnit

6import Test.HUnit ( assertBool )

5import Test.HUnit ( assertBool )

tests/Tests/Readers/Docx.hs−1

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

1module Tests.Readers.Docx (tests) where

2

3−import Prelude

4import Text.Pandoc.Options

3import Text.Pandoc.Options

5import Text.Pandoc.Readers.Native

4import Text.Pandoc.Readers.Native

6import Text.Pandoc.Definition

5import Text.Pandoc.Definition

tests/Tests/Readers/EPUB.hs−1

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

1module Tests.Readers.EPUB (tests) where

2

3−import Prelude

4import Text.Pandoc.Options

3import Text.Pandoc.Options

5import Test.Framework

4import Test.Framework

6import Test.HUnit (assertBool)

5import Test.HUnit (assertBool)

tests/Tests/Readers/HTML.hs−1

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

1{-# LANGUAGE OverloadedStrings #-}

2module Tests.Readers.HTML (tests) where

3

4−import Prelude

5import Text.Pandoc.Definition

4import Text.Pandoc.Definition

6import Test.Framework

5import Test.Framework

7import Tests.Helpers

6import Tests.Helpers

tests/Tests/Readers/LaTeX.hs−1

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

1{-# LANGUAGE OverloadedStrings #-}

2module Tests.Readers.LaTeX (tests) where

3

4−import Prelude

5import Text.Pandoc.Definition

4import Text.Pandoc.Definition

6import Test.Framework

5import Test.Framework

7import Tests.Helpers

6import Tests.Helpers

tests/Tests/Readers/Markdown.hs−1

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

1{-# LANGUAGE OverloadedStrings #-}

2module Tests.Readers.Markdown (tests) where

3

4−import Prelude

5import Text.Pandoc.Definition

4import Text.Pandoc.Definition

6import Test.Framework

5import Test.Framework

7import Tests.Helpers

6import Tests.Helpers

tests/Tests/Readers/Odt.hs+1−2

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

1module Tests.Readers.Odt (tests) where

2

3−import Prelude

4import Control.Monad ( liftM )

3import Control.Monad ( liftM )

5import Text.Pandoc.Options

4import Text.Pandoc.Options

6import Text.Pandoc.Readers.Native

5import Text.Pandoc.Readers.Native

@@ -163,4 +162,4 @@ namesOfTestsComparingToNative = [ "blockquote"

163-- , "table"

162-- , "table"

164 , "unicode"

163 , "unicode"

165 , "unorderedList"

164 , "unorderedList"

166− ]

165+ ]

tests/Tests/Readers/Org.hs−1

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

1{-# LANGUAGE OverloadedStrings #-}

2module Tests.Readers.Org (tests) where

3

4−import Prelude

5import Text.Pandoc.Definition

4import Text.Pandoc.Definition

6import Test.Framework

5import Test.Framework

7import Tests.Helpers

6import Tests.Helpers

tests/Tests/Readers/RST.hs−1

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

1{-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-}

2module Tests.Readers.RST (tests) where

3

4−import Prelude

5import Text.Pandoc.Definition

4import Text.Pandoc.Definition

6import Test.Framework

5import Test.Framework

7import Tests.Helpers

6import Tests.Helpers

tests/Tests/Readers/Txt2Tags.hs−1

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

1{-# LANGUAGE OverloadedStrings #-}

2module Tests.Readers.Txt2Tags (tests) where

3

4−import Prelude

5import Text.Pandoc.Definition

4import Text.Pandoc.Definition

6import Test.Framework

5import Test.Framework

7import Tests.Helpers

6import Tests.Helpers

tests/Tests/Shared.hs−1

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

1module Tests.Shared (tests) where

2

3−import Prelude

4import Text.Pandoc.Definition

3import Text.Pandoc.Definition

5import Text.Pandoc.Shared

4import Text.Pandoc.Shared

6import Test.Framework

5import Test.Framework

tests/Tests/Walk.hs−1

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

1{-# LANGUAGE ScopedTypeVariables, FlexibleContexts #-}

2module Tests.Walk (tests) where

3

4−import Prelude

5import Text.Pandoc.Definition

4import Text.Pandoc.Definition

6import Text.Pandoc.Walk

5import Text.Pandoc.Walk

7import Test.Framework

6import Test.Framework

tests/Tests/Writers/AsciiDoc.hs−1

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

1module Tests.Writers.AsciiDoc (tests) where

2

3−import Prelude

4import Test.Framework

3import Test.Framework

5import Text.Pandoc.Builder

4import Text.Pandoc.Builder

6import Text.Pandoc

5import Text.Pandoc

tests/Tests/Writers/ConTeXt.hs−1

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

1{-# LANGUAGE OverloadedStrings #-}

2module Tests.Writers.ConTeXt (tests) where

3

4−import Prelude

5import Test.Framework

4import Test.Framework

6import Text.Pandoc.Builder

5import Text.Pandoc.Builder

7import Text.Pandoc

6import Text.Pandoc

tests/Tests/Writers/Docbook.hs−1

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

1{-# LANGUAGE OverloadedStrings #-}

2module Tests.Writers.Docbook (tests) where

3

4−import Prelude

5import Test.Framework

4import Test.Framework

6import Text.Pandoc.Builder

5import Text.Pandoc.Builder

7import Text.Pandoc

6import Text.Pandoc

tests/Tests/Writers/Docx.hs−1

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

1module Tests.Writers.Docx (tests) where

2

3−import Prelude

4import Text.Pandoc.Options

3import Text.Pandoc.Options

5import Text.Pandoc.Readers.Native

4import Text.Pandoc.Readers.Native

6import Text.Pandoc.Definition

5import Text.Pandoc.Definition

tests/Tests/Writers/HTML.hs−1

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

1{-# LANGUAGE OverloadedStrings #-}

2module Tests.Writers.HTML (tests) where

3

4−import Prelude

5import Test.Framework

4import Test.Framework

6import Text.Pandoc.Builder

5import Text.Pandoc.Builder

7import Text.Pandoc

6import Text.Pandoc

tests/Tests/Writers/LaTeX.hs−1

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

1{-# LANGUAGE OverloadedStrings #-}

2module Tests.Writers.LaTeX (tests) where

3

4−import Prelude

5import Test.Framework

4import Test.Framework

6import Text.Pandoc.Builder

5import Text.Pandoc.Builder

7import Text.Pandoc

6import Text.Pandoc

tests/Tests/Writers/Markdown.hs−1

@@ -2,7 +2,6 @@

2{-# OPTIONS_GHC -fno-warn-name-shadowing #-}

3module Tests.Writers.Markdown (tests) where

4

5−import Prelude

6import Test.Framework

5import Test.Framework

7import Text.Pandoc.Builder

6import Text.Pandoc.Builder

8import Text.Pandoc

7import Text.Pandoc

tests/Tests/Writers/Native.hs−1

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

1module Tests.Writers.Native (tests) where

2

3−import Prelude

4import Test.Framework

3import Test.Framework

5import Text.Pandoc.Builder

4import Text.Pandoc.Builder

6import Text.Pandoc

5import Text.Pandoc

tests/Tests/Writers/Plain.hs−1

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

1{-# LANGUAGE OverloadedStrings #-}

2module Tests.Writers.Plain (tests) where

3

4−import Prelude

5import Test.Framework

4import Test.Framework

6import Text.Pandoc.Builder

5import Text.Pandoc.Builder

7import Text.Pandoc

6import Text.Pandoc

tests/Tests/Writers/RST.hs−1

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

1{-# LANGUAGE OverloadedStrings #-}

2module Tests.Writers.RST (tests) where

3

4−import Prelude

5import Test.Framework

4import Test.Framework

6import Text.Pandoc.Builder

5import Text.Pandoc.Builder

7import Text.Pandoc

6import Text.Pandoc

tests/test-pandoc.hs−1

@@ -2,7 +2,6 @@

2

3module Main where

4

5−import Prelude

6import Test.Framework

5import Test.Framework

7import GHC.IO.Encoding

6import GHC.IO.Encoding

8import qualified Tests.Old

7import qualified Tests.Old