c423dbb · typeable/pandoc

git.iko.soy/typeable/pandoc

Use -XNoImplicitPrelude and 'import Prelude' explicitly.

This is needed for ghci to work with pandoc, given that we now use a custom prelude. Closes #2503.

commitc423dbb5a34c2d1195020e0f0ca3aae883d0749b authorJohn MacFarlane <jgm@berkeley.edu> dateSun 8 Nov 2015, 16:56 (11 years ago) parentda05619

109 files changed+118−12

compare with master

unifiedsplit

benchmark/benchmark-pandoc.hs+1

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

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

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

1717-}

18+import Prelude

1819import Text.Pandoc

1920import Criterion.Main

2021import Criterion.Types (Config(..))

pandoc.cabal+4−4

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

303303 other-modules: Text.Pandoc.Data

304304 if os(windows)

305305 Cpp-options: -D_WINDOWS

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

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

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

308308 Default-Language: Haskell98

309309 Other-Extensions: PatternGuards, OverloadedStrings,

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

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

421421 else

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

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

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

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

425425 if os(windows)

426426 Cpp-options: -D_WINDOWS

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

496496 Tests.Writers.Docx

497497 Tests.Writers.RST

498498 Prelude

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

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

500500 Default-Language: Haskell98

501501

502502benchmark benchmark-pandoc

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

507507 base >= 4.2 && < 5,

508508 syb >= 0.1 && < 0.7,

509509 criterion >= 1.0 && < 1.2

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

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

511511 Default-Language: Haskell98

512512 Other-Modules: Prelude

pandoc.hs+1

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

3030writers.

3131-}

3232module Main where

33+import Prelude

3334import Text.Pandoc

3435import Text.Pandoc.Builder (setMeta)

3536import Text.Pandoc.PDF (makePDF)

src/Text/Pandoc.hs+1

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

150150import Text.Pandoc.Writers.LaTeX

151151import Text.Pandoc.Writers.ConTeXt

152152import Text.Pandoc.Writers.Texinfo

153+import Prelude

153154import Text.Pandoc.Writers.HTML

154155import Text.Pandoc.Writers.ODT

155156import Text.Pandoc.Writers.Docx

src/Text/Pandoc/Asciify.hs+1

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

3030-}

3131module Text.Pandoc.Asciify (toAsciiChar)

3232where

33+import Prelude

3334import qualified Data.Map as M

3435import Data.Char (isAscii)

3536

src/Text/Pandoc/CSS.hs+1

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

33 )

44where

6+import Prelude

67import Text.Pandoc.Shared (trim)

78import Text.Parsec

89import Text.Parsec.String

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

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

55#if MIN_VERSION_directory(1,2,0)

66import System.Directory

8−

98#else

109import qualified System.Directory as S

1110import Data.Time.Clock (UTCTime)

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

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

99 , catchError )

1010 where

1111

12+import Prelude

1213#if MIN_VERSION_mtl(2,2,1)

1314import Control.Monad.Except

1415

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

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

22module Text.Pandoc.Compat.TagSoupEntity (lookupEntity

33 ) where

5+import Prelude

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

78lookupEntity :: String -> Maybe Char

src/Text/Pandoc/Error.hs+1

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

3131-}

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

3333

34+import Prelude

3435import Text.Parsec.Error

3536import Text.Parsec.Pos hiding (Line)

3637import Text.Pandoc.Compat.Except

src/Text/Pandoc/Highlighting.hs+1

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

4848 , fromListingsLanguage

4949 , toListingsLanguage

5050 ) where

51+import Prelude

5152import Text.Pandoc.Definition

5253import Text.Pandoc.Shared (safeRead)

5354import Text.Highlighting.Kate

src/Text/Pandoc/ImageSize.hs+1

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

3131-}

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

3333 sizeInPixels, sizeInPoints ) where

34+import Prelude

3435import Data.ByteString (ByteString, unpack)

3536import qualified Data.ByteString.Char8 as B

3637import qualified Data.ByteString.Lazy as BL

src/Text/Pandoc/MIME.hs+1

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

2929-}

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

3131 extensionFromMimeType )where

32+import Prelude

3233import System.FilePath

3334import Data.Char ( toLower )

3435import Data.List (isPrefixOf, isSuffixOf)

src/Text/Pandoc/MediaBag.hs+1

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

3636 mediaDirectory,

3737 extractMediaBag

3838 ) where

39+import Prelude

3940import System.FilePath

4041import qualified System.FilePath.Posix as Posix

4142import System.Directory (createDirectoryIfMissing)

src/Text/Pandoc/Options.hs+1

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

4747 , def

4848 , isEnabled

4949 ) where

50+import Prelude

5051import Data.Set (Set)

5152import qualified Data.Set as Set

5253import Data.Default

src/Text/Pandoc/PDF.hs+1

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

3030-}

3131module Text.Pandoc.PDF ( makePDF ) where

3232

33+import Prelude

3334import Data.ByteString.Lazy (ByteString)

3435import qualified Data.ByteString.Lazy as B

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

src/Text/Pandoc/Parsing.hs+1

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

180180 isHexDigit, isSpace )

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

182182import Text.Pandoc.Shared

183+import Prelude

183184import qualified Data.Map as M

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

185186 parseMacroDefinitions)

src/Text/Pandoc/Pretty.hs+1

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

7474 )

7575

7676where

77+import Prelude

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

7879import Data.Foldable (toList)

7980import Data.List (intercalate)

src/Text/Pandoc/Process.hs+1

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

2929-}

3030module Text.Pandoc.Process (pipeProcess)

3131where

32+import Prelude

3233import System.Process

3334import System.Exit (ExitCode (..))

3435import Control.Exception

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

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

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

3333where

3434

35+import Prelude

3536import CMark

3637import Data.Text (unpack, pack)

3738import Data.List (groupBy)

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

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

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

2+import Prelude

23import Data.Char (toUpper)

34import Text.Pandoc.Shared (safeRead)

45import Text.Pandoc.Options

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

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

7474 ( readDocx

7575 ) where

7676

77+import Prelude

7778import Codec.Archive.Zip

7879import Text.Pandoc.Definition

7980import Text.Pandoc.Options

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

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

2929-}

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

3131

32+import Prelude

3233

3334-- | Enumeration of recognised fonts

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

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

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

3333 , listParagraphDivs

3434 ) where

3535

36+import Prelude

3637import Text.Pandoc.JSON

3738import Text.Pandoc.Generic (bottomUp)

3839import Text.Pandoc.Shared (trim)

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

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

5050 , Cell(..)

5151 , archiveToDocx

5252 ) where

53+import Prelude

5354import Codec.Archive.Zip

5455import Text.XML.Light

5556import Data.Maybe

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

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

77 where

10+import Prelude

1011import Text.Pandoc.Builder

1112import Data.List

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

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

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

55 , hasStyleName

66 ) where

8+import Prelude

89import Text.XML.Light

910import Text.Pandoc.Readers.Docx.Util

1011import Control.Monad.State

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

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

55 , elemToNameSpaces

66 ) where

8+import Prelude

89import Text.XML.Light

910import Data.Maybe (mapMaybe)

1011

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

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

88 (readEPUB)

99 where

1010

11+import Prelude

1112import Text.XML.Light

1213import Text.Pandoc.Definition hiding (Attr)

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

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

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

3838 , isCommentTag

3939 ) where

4040

41+import Prelude

4142import Text.HTML.TagSoup

4243import Text.HTML.TagSoup.Match

4344import Text.Pandoc.Definition

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

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

1414 ( readHaddock

1515 ) where

1616

17+import Prelude

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

1819import qualified Text.Pandoc.Builder as B

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

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

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

130131 where

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

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

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

133134

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

135136 -- characters from each result line

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

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

3535 handleIncludes

3636 ) where

3737

38+import Prelude

3839import Text.Pandoc.Definition

3940import Text.Pandoc.Walk

4041import Text.Pandoc.Shared

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

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

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

3333 readMarkdownWithWarnings ) where

3434

35+import Prelude

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

3637import qualified Data.Map as M

3738import Data.Scientific (coefficient, base10Exponent)

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

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

3636-}

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

3838

39+import Prelude

3940import Text.Pandoc.Definition

4041import qualified Text.Pandoc.Builder as B

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

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

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

3030-}

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

3232

33+import Prelude

3334import Text.Pandoc.Definition

3435import Text.Pandoc.Shared (safeRead)

3536

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

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

11{-# LANGUAGE FlexibleContexts #-}

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

3+import Prelude

34import Data.Char (toUpper)

45import Text.Pandoc.Options

56import Text.Pandoc.Definition

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

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

3232

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

3434

35+import Prelude

3536import Codec.Archive.Zip

3637import qualified Text.XML.Light as XML

3738

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

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

3939-- We export everything

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

4141

42+import Prelude

4243import Control.Arrow

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

4445

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

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

3939, read_body

4040) where

4141

42+import Prelude

4243import Control.Arrow

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

4445

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

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

3939-- We export everything

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

4141

42+import Prelude

4243import Control.Applicative

4344import Control.Monad

4445

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

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

3131

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

3333

34+import Prelude

3435import qualified Data.Map as M

3536

3637--

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

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

3030

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

3232

33+import Prelude

3334import qualified Data.Map as M

3435import qualified Data.Set as S

3536

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

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

5353, composition

5454) where

5555

56+import Prelude

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

5758import qualified Control.Category as Cat ( id )

5859import Control.Monad ( msum )

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

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

116116, matchContent

117117) where

118118

119+import Prelude

119120import Control.Applicative hiding ( liftA, liftA2 )

120121import Control.Monad ( MonadPlus )

121122import Control.Arrow

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

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

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

3232 ) where

3333

34+import Prelude

3435import Data.List ( isPrefixOf )

3536import Data.Maybe ( fromMaybe, listToMaybe )

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

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

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

7070, readStylesAt

7171) where

7272

73+import Prelude

7374import Control.Arrow

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

7576

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

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

3030-}

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

3232

33+import Prelude

3334import qualified Text.Pandoc.Builder as B

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

3536 trimInlines )

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

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

3333 readRST,

3434 readRSTWithWarnings

3535 ) where

36+import Prelude

3637import Text.Pandoc.Definition

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

3839import Text.Pandoc.Shared

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

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

3333 , readTWikiWithWarnings

3434 ) where

3535

36+import Prelude

3637import Text.Pandoc.Definition

3738import qualified Text.Pandoc.Builder as B

3839import Text.Pandoc.Options

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

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

2929-}

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

3131

32+import Prelude

3233import Text.Pandoc.Definition

3334import Text.TeXMath

3435

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

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

5151

5252

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

54+import Prelude

5455import Text.Pandoc.Definition

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

5657import qualified Text.Pandoc.Builder as B

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

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

3232 , readTxt2TagsNoMacros)

3333 where

3434

35+import Prelude

3536import qualified Text.Pandoc.Builder as B

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

3738import Text.Pandoc.Definition

src/Text/Pandoc/SelfContained.hs+1

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

3131the HTML using data URIs.

3232-}

3333module Text.Pandoc.SelfContained ( makeSelfContained ) where

34+import Prelude

3435import Text.HTML.TagSoup

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

3637import Data.ByteString.Base64

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

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

9797 pandocVersion

9898 ) where

9999

100+import Prelude

100101import Text.Pandoc.Definition

101102import Text.Pandoc.Walk

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

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

246247

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

248249triml :: String -> String

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

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

250251

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

252253trimr :: String -> String

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

659660inlineListToIdentifier =

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

661662 map (nbspToSp . toLower) .

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

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

663664 stringify

664665 where nbspToSp '\160' = ' '

665666 nbspToSp x = x

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

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

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

915916openURL u

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

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

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

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

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

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

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

920921#ifdef HTTP_CLIENT

921922 | otherwise = withSocketsDo $ E.try $ do

src/Text/Pandoc/Slides.hs+1

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

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

3030-}

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

32+import Prelude

3233import Text.Pandoc.Definition

3334

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

src/Text/Pandoc/Templates.hs+1

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

9393 , Template

9494 , getDefaultTemplate ) where

9595

96+import Prelude

9697import Data.Char (isAlphaNum)

9798import Control.Monad (guard, when)

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

src/Text/Pandoc/UUID.hs+1

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

3131

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

3333

34+import Prelude

3435import Text.Printf ( printf )

3536import System.Random ( randomIO )

3637import Data.Word

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

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

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

3838-}

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

40+import Prelude

4041import Text.Pandoc.Definition

4142import Text.Pandoc.Templates (renderTemplate')

4243import Text.Pandoc.Shared

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

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

3131-}

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

3333

34+import Prelude

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

3536import Text.Pandoc.Definition

3637import Text.Pandoc.Shared (isTightList)

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

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

2929Conversion of 'Pandoc' format into ConTeXt.

3030-}

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

32+import Prelude

3233import Text.Pandoc.Definition

3334import Text.Pandoc.Shared

3435import Text.Pandoc.Writers.Shared

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

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

3535a lua writer.

3636-}

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

38+import Prelude

3839import Text.Pandoc.Definition

3940import Text.Pandoc.Options

4041import Data.List ( intersperse )

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

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

2929Conversion of 'Pandoc' documents to Docbook XML.

3030-}

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

32+import Prelude

3233import Text.Pandoc.Definition

3334import Text.Pandoc.XML

3435import Text.Pandoc.Shared

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

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

2929Conversion of 'Pandoc' documents to docx.

3030-}

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

32+import Prelude

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

3334import qualified Data.ByteString as B

3435import qualified Data.ByteString.Lazy as BL

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

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

3939-}

4040

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

42+import Prelude

4243import Text.Pandoc.Definition

4344import Text.Pandoc.Options ( WriterOptions(

4445 writerTableOfContents

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

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

2929Conversion of 'Pandoc' documents to EPUB.

3030-}

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

32+import Prelude

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

3334import qualified Data.Map as M

3435import Data.Maybe ( fromMaybe, catMaybes )

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

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

2727-}

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

2929

30+import Prelude

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

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

3233import Data.ByteString.Base64 (encode)

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

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

3030Conversion of 'Pandoc' documents to HTML.

3131-}

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

33+import Prelude

3334import Text.Pandoc.Definition

3435import Text.Pandoc.Shared

3536import Text.Pandoc.Writers.Shared

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

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

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

3232-}

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

34+import Prelude

3435import Text.Pandoc.Definition

3536import Text.Pandoc.Templates (renderTemplate')

3637import Text.Pandoc.Shared

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

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

1414into InDesign with File -> Place.

1515-}

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

17+import Prelude

1718import Text.Pandoc.Definition

1819import Text.Pandoc.XML

1920import Text.Pandoc.Writers.Shared

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

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

3030Conversion of 'Pandoc' format into LaTeX.

3131-}

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

33+import Prelude

3334import Text.Pandoc.Definition

3435import Text.Pandoc.Walk

3536import Text.Pandoc.Shared

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

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

2929

3030-}

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

32+import Prelude

3233import Text.Pandoc.Definition

3334import Text.Pandoc.Templates

3435import Text.Pandoc.Shared

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

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

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

3232-}

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

34+import Prelude

3435import Text.Pandoc.Definition

3536import Text.Pandoc.Walk

3637import Text.Pandoc.Templates (renderTemplate')

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

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

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

3131-}

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

33+import Prelude

3334import Text.Pandoc.Definition

3435import Text.Pandoc.Options

3536import Text.Pandoc.Shared

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

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

3434-}

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

3636where

37+import Prelude

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

3839import Data.List ( intersperse )

3940import Text.Pandoc.Definition

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

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

2929Conversion of 'Pandoc' documents to ODT.

3030-}

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

32+import Prelude

3233import Data.IORef

3334import Data.List ( isPrefixOf )

3435import Data.Maybe ( fromMaybe )

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

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

2929Conversion of 'Pandoc' documents to OPML XML.

3030-}

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

32+import Prelude

3233import Text.Pandoc.Definition

3334import Text.Pandoc.XML

3435import Text.Pandoc.Writers.Shared

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

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

3030Conversion of 'Pandoc' documents to OpenDocument XML.

3131-}

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

33+import Prelude

3334import Text.Pandoc.Definition

3435import Text.Pandoc.Options

3536import Text.Pandoc.XML

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

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

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

3333-}

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

35+import Prelude

3536import Text.Pandoc.Definition

3637import Text.Pandoc.Options

3738import Text.Pandoc.Shared

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

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

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

3232-}

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

34+import Prelude

3435import Text.Pandoc.Definition

3536import Text.Pandoc.Options

3637import Text.Pandoc.Shared

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

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

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

2929-}

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

31+import Prelude

3132import Text.Pandoc.Definition

3233import Text.Pandoc.Options

3334import Text.Pandoc.Shared

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

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

3737 , fixDisplayMath

3838 )

3939where

40+import Prelude

4041import Text.Pandoc.Definition

4142import Text.Pandoc.Pretty

4243import Text.Pandoc.XML (escapeStringForXML)

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

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

2929Conversion of 'Pandoc' format into Texinfo.

3030-}

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

32+import Prelude

3233import Text.Pandoc.Definition

3334import Text.Pandoc.Options

3435import Text.Pandoc.Shared

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

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

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

3131-}

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

33+import Prelude

3334import Text.Pandoc.Definition

3435import Text.Pandoc.Options

3536import Text.Pandoc.Shared

src/Text/Pandoc/XML.hs+1

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

3636 toEntities,

3737 fromEntities ) where

3838

39+import Prelude

3940import Text.Pandoc.Pretty

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

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

tests/Tests/Arbitrary.hs+1

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

33-- provides Arbitrary instance for Pandoc types

44module Tests.Arbitrary ()

55where

6+import Prelude

67import Test.QuickCheck.Gen

78import Test.QuickCheck.Arbitrary

89import Control.Monad (liftM, liftM2)

tests/Tests/Helpers.hs+1

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

99 )

1010 where

1111

12+import Prelude

1213import Text.Pandoc.Definition

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

1415import Test.Framework

tests/Tests/Old.hs+1

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

11module Tests.Old (tests) where

3+import Prelude

34import Test.Framework (testGroup, Test )

45import Test.Framework.Providers.HUnit

56import Test.HUnit ( assertBool )

tests/Tests/Readers/Docx.hs+1

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

11module Tests.Readers.Docx (tests) where

3+import Prelude

34import Text.Pandoc.Options

45import Text.Pandoc.Readers.Native

56import Text.Pandoc.Definition

tests/Tests/Readers/EPUB.hs+1

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

11module Tests.Readers.EPUB (tests) where

3+import Prelude

34import Text.Pandoc.Options

45import Test.Framework

56import Test.HUnit (assertBool)

tests/Tests/Readers/HTML.hs+1

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

11{-# LANGUAGE OverloadedStrings #-}

22module Tests.Readers.HTML (tests) where

4+import Prelude

45import Text.Pandoc.Definition

56import Test.Framework

67import Tests.Helpers

tests/Tests/Readers/LaTeX.hs+1

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

11{-# LANGUAGE OverloadedStrings #-}

22module Tests.Readers.LaTeX (tests) where

4+import Prelude

45import Text.Pandoc.Definition

56import Test.Framework

67import Tests.Helpers

tests/Tests/Readers/Markdown.hs+1

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

11{-# LANGUAGE OverloadedStrings #-}

22module Tests.Readers.Markdown (tests) where

4+import Prelude

45import Text.Pandoc.Definition

56import Test.Framework

67import Tests.Helpers

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

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

11module Tests.Readers.Odt (tests) where

3+import Prelude

34import Control.Monad ( liftM )

45import Text.Pandoc.Options

56import Text.Pandoc.Readers.Native

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

162163-- , "table"

163164 , "unicode"

164165 , "unorderedList"

165− ]

166+ ]

tests/Tests/Readers/Org.hs+1

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

11{-# LANGUAGE OverloadedStrings #-}

22module Tests.Readers.Org (tests) where

4+import Prelude

45import Text.Pandoc.Definition

56import Test.Framework

67import Tests.Helpers

tests/Tests/Readers/RST.hs+1

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

11{-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-}

22module Tests.Readers.RST (tests) where

4+import Prelude

45import Text.Pandoc.Definition

56import Test.Framework

67import Tests.Helpers

tests/Tests/Readers/Txt2Tags.hs+1

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

11{-# LANGUAGE OverloadedStrings #-}

22module Tests.Readers.Txt2Tags (tests) where

4+import Prelude

45import Text.Pandoc.Definition

56import Test.Framework

67import Tests.Helpers

tests/Tests/Shared.hs+1

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

11module Tests.Shared (tests) where

3+import Prelude

34import Text.Pandoc.Definition

45import Text.Pandoc.Shared

56import Test.Framework

tests/Tests/Walk.hs+1

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

11{-# LANGUAGE ScopedTypeVariables, FlexibleContexts #-}

22module Tests.Walk (tests) where

4+import Prelude

45import Text.Pandoc.Definition

56import Text.Pandoc.Walk

67import Test.Framework

tests/Tests/Writers/AsciiDoc.hs+1

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

11module Tests.Writers.AsciiDoc (tests) where

3+import Prelude

34import Test.Framework

45import Text.Pandoc.Builder

56import Text.Pandoc

tests/Tests/Writers/ConTeXt.hs+1

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

11{-# LANGUAGE OverloadedStrings #-}

22module Tests.Writers.ConTeXt (tests) where

4+import Prelude

45import Test.Framework

56import Text.Pandoc.Builder

67import Text.Pandoc

tests/Tests/Writers/Docbook.hs+1

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

11{-# LANGUAGE OverloadedStrings #-}

22module Tests.Writers.Docbook (tests) where

4+import Prelude

45import Test.Framework

56import Text.Pandoc.Builder

67import Text.Pandoc

tests/Tests/Writers/Docx.hs+1

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

11module Tests.Writers.Docx (tests) where

3+import Prelude

34import Text.Pandoc.Options

45import Text.Pandoc.Readers.Native

56import Text.Pandoc.Definition

tests/Tests/Writers/HTML.hs+1

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

11{-# LANGUAGE OverloadedStrings #-}

22module Tests.Writers.HTML (tests) where

4+import Prelude

45import Test.Framework

56import Text.Pandoc.Builder

67import Text.Pandoc

tests/Tests/Writers/LaTeX.hs+1

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

11{-# LANGUAGE OverloadedStrings #-}

22module Tests.Writers.LaTeX (tests) where

4+import Prelude

45import Test.Framework

56import Text.Pandoc.Builder

67import Text.Pandoc

tests/Tests/Writers/Markdown.hs+1

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

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

33module Tests.Writers.Markdown (tests) where

5+import Prelude

56import Test.Framework

67import Text.Pandoc.Builder

78import Text.Pandoc

tests/Tests/Writers/Native.hs+1

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

11module Tests.Writers.Native (tests) where

3+import Prelude

34import Test.Framework

45import Text.Pandoc.Builder

56import Text.Pandoc

tests/Tests/Writers/Plain.hs+1

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

11{-# LANGUAGE OverloadedStrings #-}

22module Tests.Writers.Plain (tests) where

4+import Prelude

45import Test.Framework

56import Text.Pandoc.Builder

67import Text.Pandoc

tests/Tests/Writers/RST.hs+1

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

11{-# LANGUAGE OverloadedStrings #-}

22module Tests.Writers.RST (tests) where

4+import Prelude

45import Test.Framework

56import Text.Pandoc.Builder

67import Text.Pandoc

tests/test-pandoc.hs+1

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

33module Main where

5+import Prelude

56import Test.Framework

67import GHC.IO.Encoding

78import qualified Tests.Old