7e389cb · typeable/pandoc

git.iko.soy/typeable/pandoc

Use NoImplicitPrelude and explicitly import Prelude.

This seems to be necessary if we are to use our custom Prelude with ghci. Closes #4464.

commit7e389cb3dbdc11126b9bdb6a7741a65e5a94a43e authorJohn MacFarlane <jgm@berkeley.edu> dateSun 18 Mar 2018, 10:46 (9 years ago) parentdaf731a

177 files changed+353−11

compare with master

unifiedsplit

pandoc.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

2930writers.

3031-}

3132module Main where

33+import Prelude

3234import qualified Control.Exception as E

3335import Text.Pandoc.App (convertWithOpts, defaultOpts, options, parseOptions)

3436import Text.Pandoc.Error (handleError)

src/Text/Pandoc/App.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE DeriveGeneric #-}

34{-# LANGUAGE ScopedTypeVariables #-}

@@ -42,6 +43,7 @@ module Text.Pandoc.App (

4243 , options

4344 , applyFilters

4445 ) where

46+import Prelude

4547import qualified Control.Exception as E

4648import Control.Monad

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

src/Text/Pandoc/Asciify.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

3031-}

3132module Text.Pandoc.Asciify (toAsciiChar)

3233where

34+import Prelude

3335import Data.Char (isAscii)

3436import qualified Data.Map as M

3537

src/Text/Pandoc/BCP47.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -34,6 +35,7 @@ module Text.Pandoc.BCP47 (

3435 , renderLang

3536 )

3637where

38+import Prelude

3739import Control.Monad (guard)

3840import Data.Char (isAlphaNum, isAscii, isLetter, isLower, isUpper, toLower,

3941 toUpper)

src/Text/Pandoc/CSS.hs+2

@@ -1,9 +1,11 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Text.Pandoc.CSS ( foldOrElse

23 , pickStyleAttrProps

34 , pickStylesToKVs

45 )

56where

8+import Prelude

79import Text.Pandoc.Shared (trim)

810import Text.Parsec

911import Text.Parsec.String

src/Text/Pandoc/CSV.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -34,6 +35,7 @@ module Text.Pandoc.CSV (

3435 ParseError

3536) where

3637

38+import Prelude

3739import Control.Monad (void)

3840import Data.Text (Text)

3941import qualified Data.Text as T

src/Text/Pandoc/Class.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE PatternGuards #-}

34{-# LANGUAGE DeriveFunctor #-}

@@ -96,6 +97,7 @@ module Text.Pandoc.Class ( PandocMonad(..)

9697 , Translations

9798 ) where

9899

100+import Prelude

99101import Prelude hiding (readFile)

100102import System.Random (StdGen, next, mkStdGen)

101103import qualified System.Random as IO (newStdGen)

src/Text/Pandoc/Data.hs+2

@@ -1,7 +1,9 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE TemplateHaskell #-}

34module Text.Pandoc.Data (dataFiles) where

6+import Prelude

57import qualified Data.ByteString as B

68import Data.FileEmbed

79import System.FilePath (splitDirectories)

src/Text/Pandoc/Emoji.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

2829Emoji symbol lookup from canonical string identifier.

2930-}

3031module Text.Pandoc.Emoji ( emojis ) where

32+import Prelude

3133import qualified Data.Map as M

3234

3335emojis :: M.Map String String

src/Text/Pandoc/Error.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE DeriveDataTypeable #-}

23{-# LANGUAGE DeriveGeneric #-}

34{-

@@ -34,6 +35,7 @@ module Text.Pandoc.Error (

3435 PandocError(..),

3536 handleError) where

3637

38+import Prelude

3739import Control.Exception (Exception)

3840import Data.Typeable (Typeable)

3941import GHC.Generics (Generic)

src/Text/Pandoc/Extensions.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE DeriveDataTypeable #-}

34{-# LANGUAGE DeriveGeneric #-}

@@ -48,6 +49,7 @@ module Text.Pandoc.Extensions ( Extension(..)

4849 , githubMarkdownExtensions

4950 , multimarkdownExtensions )

5051where

52+import Prelude

5153import Data.Aeson (FromJSON (..), ToJSON (..), defaultOptions)

5254import Data.Aeson.TH (deriveJSON)

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

src/Text/Pandoc/Filter.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -33,6 +34,7 @@ module Text.Pandoc.Filter

3334 , applyFilters

3435 ) where

3536

37+import Prelude

3638import Data.Aeson (defaultOptions)

3739import Data.Aeson.TH (deriveJSON)

3840import Data.Foldable (foldrM)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -29,6 +30,7 @@ Programmatically modifications of pandoc documents via JSON filters.

2930-}

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

3132

33+import Prelude

3234import Control.Monad (unless, when)

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

3436import Data.Aeson (eitherDecode', encode)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

2930-}

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

3132

33+import Prelude

3234import Control.Exception (throw)

3335import Text.Pandoc.Class (PandocIO)

3436import Text.Pandoc.Definition (Pandoc)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -31,6 +32,7 @@ module Text.Pandoc.Filter.Path

3132 ( expandFilterPath

3233 ) where

3334

35+import Prelude

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

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

3638

src/Text/Pandoc/Highlighting.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -49,6 +50,7 @@ module Text.Pandoc.Highlighting ( highlightingStyles

4950 , fromListingsLanguage

5051 , toListingsLanguage

5152 ) where

53+import Prelude

5254import Control.Monad

5355import Data.Char (toLower)

5456import qualified Data.Map as M

src/Text/Pandoc/ImageSize.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

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

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

34{-

@@ -49,6 +50,7 @@ module Text.Pandoc.ImageSize ( ImageType(..)

4950 , showInPixel

5051 , showFl

5152 ) where

53+import Prelude

5254import Data.ByteString (ByteString, unpack)

5355import qualified Data.ByteString.Char8 as B

5456import qualified Data.ByteString.Lazy as BL

src/Text/Pandoc/Logging.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE DeriveDataTypeable #-}

23{-# LANGUAGE DeriveGeneric #-}

34{-# LANGUAGE OverloadedStrings #-}

@@ -39,6 +40,7 @@ module Text.Pandoc.Logging (

3940 , messageVerbosity

4041 ) where

4142

43+import Prelude

4244import Control.Monad (mzero)

4345import Data.Aeson

4446import Data.Aeson.Encode.Pretty (Config (..), defConfig, encodePretty',

src/Text/Pandoc/Lua.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -31,6 +32,7 @@ module Text.Pandoc.Lua

3132 , runPandocLua

3233 ) where

3334

35+import Prelude

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

3537import Foreign.Lua (FromLuaStack (peek), Lua, LuaException (..),

3638 Status (OK), ToLuaStack (push))

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleContexts #-}

34module Text.Pandoc.Lua.Filter ( LuaFilterFunction

@@ -10,6 +11,7 @@ module Text.Pandoc.Lua.Filter ( LuaFilterFunction

1011 , blockElementNames

1112 , inlineElementNames

1213 ) where

14+import Prelude

1315import Control.Monad (mplus, unless, when, (>=>))

1416import Control.Monad.Catch (finally)

1517import Text.Pandoc.Definition

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -34,6 +35,7 @@ module Text.Pandoc.Lua.Init

3435 , registerScriptPath

3536 ) where

3637

38+import Prelude

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

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

3941import Data.IORef (newIORef, readIORef)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -29,6 +30,7 @@ module Text.Pandoc.Lua.Module.MediaBag

2930 ( pushModule

3031 ) where

3132

33+import Prelude

3234import Control.Monad (zipWithM_)

3335import Data.IORef (IORef, modifyIORef', readIORef)

3436import Data.Maybe (fromMaybe)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -30,6 +31,7 @@ module Text.Pandoc.Lua.Module.Pandoc

3031 ( pushModule

3132 ) where

3233

34+import Prelude

3335import Control.Monad (when)

3436import Data.Default (Default (..))

3537import Data.Maybe (fromMaybe)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -29,6 +30,7 @@ module Text.Pandoc.Lua.Module.Utils

2930 ( pushModule

3031 ) where

3132

33+import Prelude

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

3335import Data.Default (def)

3436import Foreign.Lua (FromLuaStack, Lua, LuaInteger, NumResults)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -32,6 +33,7 @@ module Text.Pandoc.Lua.Packages

3233 , installPandocPackageSearcher

3334 ) where

3435

36+import Prelude

3537import Control.Monad (forM_)

3638import Data.ByteString.Char8 (unpack)

3739import Data.IORef (IORef)

src/Text/Pandoc/Lua/StackInstances.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

34 2017-2018 Albert Krewinkel <tarleb+pandoc@moltkeplatz.de>

@@ -33,6 +34,7 @@ StackValue instances for pandoc types.

3334-}

3435module Text.Pandoc.Lua.StackInstances () where

3536

37+import Prelude

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

3739import Control.Monad (when)

3840import Control.Monad.Catch (finally)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

34 2017-2018 Albert Krewinkel <tarleb+pandoc@moltkeplatz.de>

@@ -46,6 +47,7 @@ module Text.Pandoc.Lua.Util

4647 , dostring'

4748 ) where

4849

50+import Prelude

4951import Control.Monad (when)

5052import Control.Monad.Catch (finally)

5153import Data.ByteString.Char8 (unpack)

src/Text/Pandoc/MIME.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

2930-}

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

3132 extensionFromMimeType )where

33+import Prelude

3234import Data.Char (toLower)

3335import Data.List (isPrefixOf, isSuffixOf)

3436import qualified Data.Map as M

src/Text/Pandoc/MediaBag.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE DeriveDataTypeable #-}

34{-# LANGUAGE GeneralizedNewtypeDeriving #-}

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

3738 insertMedia,

3839 mediaDirectory,

3940 ) where

41+import Prelude

4042import qualified Data.ByteString.Lazy as BL

4143import Data.Data (Data)

4244import qualified Data.Map as M

src/Text/Pandoc/Options.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE DeriveDataTypeable #-}

23{-# LANGUAGE DeriveGeneric #-}

34{-# LANGUAGE TemplateHaskell #-}

@@ -46,6 +47,7 @@ module Text.Pandoc.Options ( module Text.Pandoc.Extensions

4647 , def

4748 , isEnabled

4849 ) where

50+import Prelude

4951import Data.Aeson (defaultOptions)

5052import Data.Aeson.TH (deriveJSON)

5153import Data.Data (Data)

src/Text/Pandoc/PDF.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE OverloadedStrings #-}

34{-# LANGUAGE ScopedTypeVariables #-}

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

3233-}

3334module Text.Pandoc.PDF ( makePDF ) where

3435

36+import Prelude

3537import qualified Codec.Picture as JP

3638import qualified Control.Exception as E

3739import Control.Monad (unless, when)

src/Text/Pandoc/Parsing.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE ExplicitForAll #-}

34{-# LANGUAGE FlexibleContexts #-}

@@ -195,6 +196,7 @@ module Text.Pandoc.Parsing ( takeWhileP,

195196 )

196197where

197198

199+import Prelude

198200import Control.Monad.Identity

199201import Control.Monad.Reader

200202import Data.Char (chr, isAlphaNum, isAscii, isAsciiUpper, isHexDigit,

src/Text/Pandoc/Pretty.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE GeneralizedNewtypeDeriving #-}

34{-

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

7778 )

7879

7980where

81+import Prelude

8082import Control.Monad

8183import Control.Monad.State.Strict

8284import Data.Char (isSpace)

src/Text/Pandoc/Process.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

2930-}

3031module Text.Pandoc.Process (pipeProcess)

3132where

33+import Prelude

3234import Control.Concurrent (forkIO, newEmptyMVar, putMVar, takeMVar)

3335import Control.Exception

3436import Control.Monad (unless)

src/Text/Pandoc/Readers.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleInstances #-}

23{-# LANGUAGE GADTs #-}

34{-# LANGUAGE ScopedTypeVariables #-}

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

6970 , getDefaultExtensions

7071 ) where

7172

73+import Prelude

7274import Control.Monad.Except (throwError)

7375import Data.Aeson

7476import qualified Data.ByteString.Lazy as BL

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

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

3334where

3435

36+import Prelude

3537import CMarkGFM

3638import Control.Monad.State

3739import Data.Char (isAlphaNum, isLetter, isSpace, toLower)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -35,6 +36,7 @@ Conversion of creole text to 'Pandoc' document.

3536module Text.Pandoc.Readers.Creole ( readCreole

3637 ) where

3738

39+import Prelude

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

3941import qualified Data.Foldable as F

4042import Data.Maybe (fromMaybe)

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

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE ExplicitForAll #-}

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

4+import Prelude

35import Control.Monad.State.Strict

46import Data.Char (isSpace, toUpper)

57import Data.Default

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE OverloadedStrings #-}

34{-# LANGUAGE PatternGuards #-}

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

7475 ( readDocx

7576 ) where

7677

78+import Prelude

7779import Codec.Archive.Zip

7880import Control.Monad.Reader

7981import Control.Monad.State.Strict

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleInstances #-}

23{-# LANGUAGE PatternGuards #-}

34{-# LANGUAGE TypeSynonymInstances #-}

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

78 )

89 where

910

11+import Prelude

1012import Data.List

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

1214import qualified Data.Sequence as Seq (null)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

3233 , parseFieldInfo

3334 ) where

3435

36+import Prelude

3537import Text.Parsec

3638import Text.Parsec.String (Parser)

3739

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

3334 , listParagraphDivs

3435 ) where

3536

37+import Prelude

3638import Data.List

3739import Data.Maybe

3840import Text.Pandoc.Generic (bottomUp)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleInstances #-}

23{-# LANGUAGE PatternGuards #-}

34{-# LANGUAGE ViewPatterns #-}

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

5859 , archiveToDocx

5960 , archiveToDocxWithWarnings

6061 ) where

62+import Prelude

6163import Codec.Archive.Zip

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

6365import Control.Monad.Except

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Text.Pandoc.Readers.Docx.StyleMap ( StyleMaps(..)

23 , alterMap

34 , getMap

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

78 , hasStyleName

89 ) where

910

11+import Prelude

1012import Control.Monad.State.Strict

1113import Data.Char (toLower)

1214import qualified Data.Map as M

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Text.Pandoc.Readers.Docx.Util (

23 NameSpaces

34 , elemName

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

89 , findAttrByName

910 ) where

1011

12+import Prelude

1113import Data.Maybe (mapMaybe)

1214import Text.XML.Light

1315

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleContexts #-}

34{-# LANGUAGE TupleSections #-}

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

78 (readEPUB)

89 where

910

11+import Prelude

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

1113 toArchiveOrFail)

1214import Control.DeepSeq (NFData, deepseq)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleContexts #-}

23{-# LANGUAGE FlexibleInstances #-}

34{-# LANGUAGE MultiParamTypeClasses #-}

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

4243 , isCommentTag

4344 ) where

4445

46+import Prelude

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

4648import Control.Arrow (first)

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

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{- |

34 Module : Text.Pandoc.Readers.Haddock

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

1415 ( readHaddock

1516 ) where

1617

18+import Prelude

1719import Control.Monad.Except (throwError)

1820import Data.List (intersperse, stripPrefix)

1921import Data.Maybe (fromMaybe)

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

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE ExplicitForAll, TupleSections #-}

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

4+import Prelude

35import Control.Monad.State.Strict

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

57import Data.Default

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleInstances #-}

23{-# LANGUAGE MultiParamTypeClasses #-}

34{-# LANGUAGE OverloadedStrings #-}

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

4243 untokenize

4344 ) where

4445

46+import Prelude

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

4648import Control.Monad

4749import Control.Monad.Except (throwError)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

3435 , SourcePos

3536 )

3637where

38+import Prelude

3739import Data.Text (Text)

3840import Text.Parsec.Pos (SourcePos)

3941

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE RelaxedPolyRec #-}

23{-# LANGUAGE ScopedTypeVariables #-}

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

3233-}

3334module Text.Pandoc.Readers.Markdown ( readMarkdown ) where

3435

36+import Prelude

3537import Control.Monad

3638import Control.Monad.Except (throwError)

3739import Data.Char (isAlphaNum, isPunctuation, isSpace, toLower)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleInstances #-}

23{-# LANGUAGE RelaxedPolyRec #-}

34{-# LANGUAGE TypeSynonymInstances #-}

@@ -38,6 +39,7 @@ _ parse templates?

3839-}

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

4041

42+import Prelude

4143import Control.Monad

4244import Control.Monad.Except (throwError)

4345import Data.Char (isDigit, isSpace)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleContexts #-}

23{-

@@ -39,6 +40,7 @@ TODO:

3940-}

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

4142

43+import Prelude

4244import Control.Monad

4345import Control.Monad.Except (throwError)

4446import Data.Char (isLetter)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

3031-}

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

3233

34+import Prelude

3335import Text.Pandoc.Definition

3436import Text.Pandoc.Options (ReaderOptions)

3537import Text.Pandoc.Shared (safeRead)

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

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleContexts #-}

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

4+import Prelude

35import Control.Monad.State.Strict

46import Data.Char (toUpper)

57import Data.Default

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE PatternGuards #-}

34{-

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

3233

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

3435

36+import Prelude

3537import Codec.Archive.Zip

3638import qualified Text.XML.Light as XML

3739

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleInstances #-}

23{-# LANGUAGE TupleSections #-}

34{-

@@ -37,14 +38,13 @@ faster and easier to implement this way.

3738

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

3940

41+import Prelude

4042import Prelude hiding (foldl, foldr)

4143

4244import Control.Arrow

4345import qualified Control.Category as Cat

4446import Control.Monad

4547

46−import Data.Foldable

47−

4848import Text.Pandoc.Readers.Odt.Arrows.Utils

4949import Text.Pandoc.Readers.Odt.Generic.Fallible

5050

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

3940-- We export everything

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

4142

43+import Prelude

4244import Control.Arrow

4345import Control.Monad (join)

4446

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

@@ -1,5 +1,3 @@

1−

2−

31{-

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE Arrows #-}

23{-# LANGUAGE PatternGuards #-}

34{-# LANGUAGE RecordWildCards #-}

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

3940, read_body

4041) where

4142

43+import Prelude

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

4345import Control.Arrow

4446

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

34{-

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

3839

3940-- We export everything

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

42+import Prelude

4143

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

4345type Failure = ()

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

3132

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

3334

35+import Prelude

3436import qualified Data.Map as M

3537

3638--

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

3031

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

3233

34+import Prelude

3335import qualified Data.Map as M

3436import qualified Data.Set as S

3537

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

34{-# LANGUAGE TypeOperators #-}

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

5152, composition

5253) where

5354

55+import Prelude

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

5557import qualified Control.Category as Cat (id)

5658import Control.Monad (msum)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE Arrows #-}

23{-# LANGUAGE TupleSections #-}

34{-# LANGUAGE GADTs #-}

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

6768, matchContent

6869) where

6970

71+import Prelude

7072import Control.Applicative hiding ( liftA, liftA2 )

7173import Control.Monad ( MonadPlus )

7274import Control.Arrow

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

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

3233 ) where

3334

35+import Prelude

3436import Data.List (isPrefixOf)

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

3638import Data.Maybe (fromMaybe, listToMaybe)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE Arrows #-}

34{-# LANGUAGE RecordWildCards #-}

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

5758, readStylesAt

5859) where

5960

61+import Prelude

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

6163import Control.Arrow

6264

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

2728-}

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

2930

31+import Prelude

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

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

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

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -40,6 +41,7 @@ module Text.Pandoc.Readers.Org.BlockStarts

4041 , endOfBlock

4142 ) where

4243

44+import Prelude

4345import Control.Monad (void)

4446import Text.Pandoc.Readers.Org.Parsing

4547

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -31,6 +32,7 @@ module Text.Pandoc.Readers.Org.Blocks

3132 , meta

3233 ) where

3334

35+import Prelude

3436import Text.Pandoc.Readers.Org.BlockStarts

3537import Text.Pandoc.Readers.Org.DocumentTree (documentTree, headlineToBlocks)

3638import Text.Pandoc.Readers.Org.Inlines

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -32,6 +33,7 @@ module Text.Pandoc.Readers.Org.DocumentTree

3233 , headlineToBlocks

3334 ) where

3435

36+import Prelude

3537import Control.Arrow ((***))

3638import Control.Monad (guard, void)

3739import Data.Char (toLower, toUpper)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -29,6 +30,7 @@ module Text.Pandoc.Readers.Org.ExportSettings

2930 ( exportSettings

3031 ) where

3132

33+import Prelude

3234import Text.Pandoc.Readers.Org.ParserState

3335import Text.Pandoc.Readers.Org.Parsing

3436

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

@@ -33,6 +34,7 @@ module Text.Pandoc.Readers.Org.Inlines

3334 , linkTarget

3435 ) where

3536

37+import Prelude

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

3739import Text.Pandoc.Readers.Org.ParserState

3840import Text.Pandoc.Readers.Org.Parsing

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleContexts #-}

23{-# LANGUAGE TupleSections #-}

34{-

@@ -33,6 +34,7 @@ module Text.Pandoc.Readers.Org.Meta

3334 , metaLine

3435 ) where

3536

37+import Prelude

3638import Text.Pandoc.Readers.Org.BlockStarts

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

3840import Text.Pandoc.Readers.Org.Inlines

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleInstances #-}

23{-# LANGUAGE MultiParamTypeClasses #-}

34{-

@@ -54,6 +55,7 @@ module Text.Pandoc.Readers.Org.ParserState

5455 , optionsToParserState

5556 ) where

5657

58+import Prelude

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

5860

5961import Data.Default (Default (..))

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -112,6 +113,7 @@ module Text.Pandoc.Readers.Org.Parsing

112113 , getPosition

113114 ) where

114115

116+import Prelude

115117import Text.Pandoc.Readers.Org.ParserState

116118

117119import Text.Pandoc.Parsing hiding (F, anyLine, blanklines, newline,

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

@@ -33,6 +34,7 @@ module Text.Pandoc.Readers.Org.Shared

3334 , translateLang

3435 ) where

3536

37+import Prelude

3638import Data.Char (isAlphaNum)

3739import Data.List (isPrefixOf, isSuffixOf)

3840

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleContexts #-}

23{-# LANGUAGE OverloadedStrings #-}

34{-# LANGUAGE ScopedTypeVariables #-}

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

3132Conversion from reStructuredText to 'Pandoc' document.

3233-}

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

35+import Prelude

3436import Control.Arrow (second)

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

3638import Control.Monad.Except (throwError)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleContexts #-}

23{-# LANGUAGE FlexibleInstances #-}

34{-# LANGUAGE RelaxedPolyRec #-}

@@ -35,6 +36,7 @@ Conversion of twiki text to 'Pandoc' document.

3536module Text.Pandoc.Readers.TWiki ( readTWiki

3637 ) where

3738

39+import Prelude

3840import Control.Monad

3941import Control.Monad.Except (throwError)

4042import Data.Char (isAlphaNum)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

34 2010-2018 John MacFarlane

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

5253

5354

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

56+import Prelude

5557import Control.Monad (guard, liftM)

5658import Control.Monad.Except (throwError)

5759import Data.Char (digitToInt, isUpper)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleContexts #-}

23{-# LANGUAGE FlexibleInstances #-}

34{-# LANGUAGE OverloadedStrings #-}

@@ -19,6 +20,7 @@ Conversion of TikiWiki text to 'Pandoc' document.

1920module Text.Pandoc.Readers.TikiWiki ( readTikiWiki

2021 ) where

2122

23+import Prelude

2224import Control.Monad

2325import Control.Monad.Except (throwError)

2426import qualified Data.Foldable as F

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

3132 )

3233 where

3334

35+import Prelude

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

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

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

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-

@@ -64,6 +65,7 @@ Conversion of vimwiki text to 'Pandoc' document.

6465

6566module Text.Pandoc.Readers.Vimwiki ( readVimwiki

6667 ) where

68+import Prelude

6769import Control.Monad (guard)

6870import Control.Monad.Except (throwError)

6971import Data.Default

src/Text/Pandoc/SelfContained.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

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

3132the HTML using data URIs.

3233-}

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

35+import Prelude

3436import Codec.Compression.GZip as Gzip

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

3638import Control.Monad.Except (throwError)

src/Text/Pandoc/Shared.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE DeriveDataTypeable #-}

34{-# LANGUAGE FlexibleContexts #-}

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

100101 pandocVersion

101102 ) where

102103

104+import Prelude

103105import Codec.Archive.Zip

104106import qualified Control.Exception as E

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

src/Text/Pandoc/Slides.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

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

3031-}

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

33+import Prelude

3234import Text.Pandoc.Definition

3335

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

src/Text/Pandoc/Templates.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleInstances #-}

34{-# LANGUAGE OverloadedStrings #-}

@@ -38,6 +39,7 @@ module Text.Pandoc.Templates ( module Text.DocTemplates

3839 , getDefaultTemplate

3940 ) where

4041

42+import Prelude

4143import Control.Monad.Except (throwError)

4244import Data.Aeson (ToJSON (..))

4345import qualified Data.Text as T

src/Text/Pandoc/Translations.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE DeriveGeneric #-}

34{-# LANGUAGE GeneralizedNewtypeDeriving #-}

@@ -46,6 +47,7 @@ module Text.Pandoc.Translations (

4647 , readTranslations

4748 )

4849where

50+import Prelude

4951import Data.Aeson.Types (typeMismatch)

5052import qualified Data.HashMap.Strict as HM

5153import qualified Data.Map as M

src/Text/Pandoc/UTF8.hs+1

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

src/Text/Pandoc/UUID.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

3132

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

3334

35+import Prelude

3436import Data.Bits (clearBit, setBit)

3537import Data.Word

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

src/Text/Pandoc/Writers.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -82,6 +83,7 @@ module Text.Pandoc.Writers

8283 , getWriter

8384 ) where

8485

86+import Prelude

8587import Data.Aeson

8688import qualified Data.ByteString.Lazy as BL

8789import Data.List (intercalate)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

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

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

3839-}

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

41+import Prelude

4042import Control.Monad.State.Strict

4143import Data.Aeson (Result (..), Value (String), fromJSON, toJSON)

4244import Data.Char (isPunctuation, isSpace)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

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

3233-}

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

3435

36+import Prelude

3537import CMarkGFM

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

3739import Data.Foldable (foldrM)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-# LANGUAGE ScopedTypeVariables #-}

34{-

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

3031Conversion of 'Pandoc' format into ConTeXt.

3132-}

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

34+import Prelude

3335import Control.Monad.State.Strict

3436import Data.Char (ord, isDigit)

3537import Data.List (intercalate, intersperse)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE DeriveDataTypeable #-}

23{-# LANGUAGE FlexibleInstances #-}

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

3031a lua writer.

3132-}

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

34+import Prelude

3335import Control.Arrow ((***))

3436import Control.Exception

3537import Control.Monad (when)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-# LANGUAGE PatternGuards #-}

34{-

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

3031Conversion of 'Pandoc' documents to Docbook XML.

3132-}

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

34+import Prelude

3335import Control.Monad.Reader

3436import Data.Char (toLower)

3537import Data.Generics (everywhere, mkT)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE PatternGuards #-}

23{-# LANGUAGE RankNTypes #-}

34{-# LANGUAGE ScopedTypeVariables #-}

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

3233Conversion of 'Pandoc' documents to docx.

3334-}

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

36+import Prelude

3537import Codec.Archive.Zip

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

3739import Control.Monad.Except (catchError)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

3940-}

4041

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

43+import Prelude

4244import Control.Monad (zipWithM)

4345import Control.Monad.Reader (ReaderT, ask, local, runReaderT)

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

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE FlexibleContexts #-}

34{-# LANGUAGE PatternGuards #-}

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

3233Conversion of 'Pandoc' documents to EPUB.

3334-}

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

36+import Prelude

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

3638 fromArchive, fromEntry, toEntry)

3739import Control.Monad (mplus, unless, when, zipWithM)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE PatternGuards #-}

34{-

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

3738-}

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

3940

41+import Prelude

4042import Control.Monad (zipWithM)

4143import Control.Monad.Except (catchError)

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

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-# LANGUAGE OverloadedStrings #-}

34{-# LANGUAGE ScopedTypeVariables #-}

@@ -45,6 +46,7 @@ module Text.Pandoc.Writers.HTML (

4546 writeRevealJs,

4647 tagWithAttributes

4748 ) where

49+import Prelude

4850import Control.Monad.State.Strict

4951import Data.Char (ord, toLower)

5052import Data.List (intercalate, intersperse, isPrefixOf, partition)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-# LANGUAGE ScopedTypeVariables #-}

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

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

3435-}

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

37+import Prelude

3638import Control.Monad.State.Strict

3739import Data.Default

3840import Data.Text (Text)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleContexts #-}

23{-# LANGUAGE OverloadedStrings #-}

34{-# LANGUAGE ScopedTypeVariables #-}

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

1617into InDesign with File -> Place.

1718-}

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

20+import Prelude

1921import Control.Monad.Except (catchError)

2022import Control.Monad.State.Strict

2123import Data.List (intersperse, isInfixOf, isPrefixOf, stripPrefix)

src/Text/Pandoc/Writers/JATS.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

34{-

@@ -31,6 +32,7 @@ Reference:

3132https://jats.nlm.nih.gov/publishing/tag-library

3233-}

3334module Text.Pandoc.Writers.JATS ( writeJATS ) where

35+import Prelude

3436import Control.Monad.Reader

3537import Data.Char (toLower)

3638import Data.Generics (everywhere, mkT)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-# LANGUAGE PatternGuards #-}

34{-# LANGUAGE ScopedTypeVariables #-}

@@ -34,6 +35,7 @@ module Text.Pandoc.Writers.LaTeX (

3435 writeLaTeX

3536 , writeBeamer

3637 ) where

38+import Prelude

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

3840import Control.Monad.State.Strict

3941import Data.Aeson (FromJSON, object, (.=))

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

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

3031

3132-}

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

34+import Prelude

3335import Control.Monad.State.Strict

3436import Data.List (intercalate, intersperse, sort, stripPrefix)

3537import qualified Data.Map as Map

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE MultiWayIf #-}

23{-# LANGUAGE OverloadedStrings #-}

34{-# LANGUAGE ScopedTypeVariables #-}

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

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

3536-}

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

38+import Prelude

3739import Control.Monad.Reader

3840import Control.Monad.State.Strict

3941import Data.Char (chr, isPunctuation, isSpace, ord, isAlphaNum)

src/Text/Pandoc/Writers/Math.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Text.Pandoc.Writers.Math

23 ( texMathToInlines

34 , convertMath

@@ -6,6 +7,7 @@ module Text.Pandoc.Writers.Math

67 )

78where

10+import Prelude

911import Text.Pandoc.Class

1012import Text.Pandoc.Definition

1113import Text.Pandoc.Logging

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

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

3132-}

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

34+import Prelude

3335import Control.Monad.Reader

3436import Control.Monad.State.Strict

3537import Data.List (intercalate)

src/Text/Pandoc/Writers/Ms.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -36,6 +37,7 @@ TODO:

3637-}

3738

3839module Text.Pandoc.Writers.Ms ( writeMs ) where

40+import Prelude

3941import Control.Monad.State.Strict

4042import Data.Char (isLower, isUpper, toUpper, ord)

4143import Data.List (intercalate, intersperse, sort)

src/Text/Pandoc/Writers/Muse.hs+4−2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

@@ -42,6 +43,7 @@ However, @\<literal style="html">@ tag is used for HTML raw blocks

4243even though it is supported only in Emacs Muse.

4344-}

4445module Text.Pandoc.Writers.Muse (writeMuse) where

46+import Prelude

4547import Control.Monad.State.Strict

4648import Data.Text (Text)

4749import Data.List (intersperse, transpose, isInfixOf)

@@ -185,8 +187,8 @@ blockToMuse (OrderedList (start, style, _) items) = do

185187 -> [Block] -- ^ list item (list of blocks)

186188 -> StateT WriterState m Doc

187189 orderedListItemToMuse marker item = do

188− contents <- blockListToMuse item

189− return $ hang (length marker + 1) (text marker <> space) contents

190+ contents <- blockListToMuse item

191+ return $ hang (length marker + 1) (text marker <> space) contents

190192blockToMuse (BulletList items) = do

191193 contents <- mapM bulletListItemToMuse items

192194 -- ensure that sublists have preceding blank line

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

@@ -30,6 +31,7 @@ Conversion of a 'Pandoc' document to a string representation.

3031-}

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

3233where

34+import Prelude

3335import Data.List (intersperse)

3436import Data.Text (Text)

3537import Text.Pandoc.Class (PandocMonad)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE ScopedTypeVariables #-}

23{-

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

2930Conversion of 'Pandoc' documents to ODT.

3031-}

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

33+import Prelude

3234import Codec.Archive.Zip

3335import Control.Monad.Except (catchError)

3436import Control.Monad.State.Strict

src/Text/Pandoc/Writers/OOXML.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

@@ -39,6 +40,7 @@ module Text.Pandoc.Writers.OOXML ( mknode

3940 , fitToPage

4041 ) where

4142

43+import Prelude

4244import Codec.Archive.Zip

4345import Control.Monad.Reader

4446import qualified Data.ByteString as B

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE CPP #-}

23{-

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

2930Conversion of 'Pandoc' documents to OPML XML.

3031-}

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

33+import Prelude

3234import Control.Monad.Except (throwError)

3335import Data.Text (Text, unpack)

3436import qualified Data.Text as T

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleContexts #-}

23{-# LANGUAGE OverloadedStrings #-}

34{-# LANGUAGE PatternGuards #-}

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

3233Conversion of 'Pandoc' documents to OpenDocument XML.

3334-}

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

36+import Prelude

3537import Control.Arrow ((***), (>>>))

3638import Control.Monad.State.Strict hiding (when)

3739import Data.Char (chr)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

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

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

3637-}

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

39+import Prelude

3840import Control.Monad.State.Strict

3941import Data.Char (isAlphaNum, toLower)

4042import Data.List (intersect, intersperse, isPrefixOf, partition, transpose)

src/Text/Pandoc/Writers/Powerpoint.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

34{-

@@ -41,6 +42,7 @@ This is a wrapper around two modules:

4142

4243module Text.Pandoc.Writers.Powerpoint (writePowerpoint) where

4344

45+import Prelude

4446import Codec.Archive.Zip

4547import Text.Pandoc.Definition

4648import Text.Pandoc.Walk

src/Text/Pandoc/Writers/Powerpoint/Output.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE PatternGuards #-}

34{-

@@ -34,6 +35,7 @@ Text.Pandoc.Writers.Powerpoint.Presentation) to a zip archive.

3435module Text.Pandoc.Writers.Powerpoint.Output ( presentationToArchive

3536 ) where

3637

38+import Prelude

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

3840import Control.Monad.Reader

3941import Control.Monad.State

src/Text/Pandoc/Writers/Powerpoint/Presentation.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE PatternGuards #-}

34{-

@@ -57,6 +58,7 @@ module Text.Pandoc.Writers.Powerpoint.Presentation ( documentToPresentation

5758 ) where

5859

5960

61+import Prelude

6062import Control.Monad.Reader

6163import Control.Monad.State

6264import Data.List (intercalate)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

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

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

3233-}

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

35+import Prelude

3436import Control.Monad.State.Strict

3537import Data.Char (isSpace, toLower)

3638import Data.List (isPrefixOf, stripPrefix)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE ScopedTypeVariables #-}

23{-

@@ -30,6 +31,7 @@ Conversion of 'Pandoc' documents to RTF (rich text format).

3031-}

3132module Text.Pandoc.Writers.RTF ( writeRTF

3233 ) where

34+import Prelude

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

3436import Control.Monad

3537import qualified Data.ByteString as B

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

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

4445 , stripLeadingTrailingSpace

4546 )

4647where

48+import Prelude

4749import Control.Monad (zipWithM)

4850import Data.Aeson (FromJSON (..), Result (..), ToJSON (..), Value (Object),

4951 encode, fromJSON)

src/Text/Pandoc/Writers/TEI.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-# LANGUAGE PatternGuards #-}

34{-

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

3031Conversion of 'Pandoc' documents to Docbook XML.

3132-}

3233module Text.Pandoc.Writers.TEI (writeTEI) where

34+import Prelude

3335import Data.Char (toLower)

3436import Data.List (isPrefixOf, stripPrefix)

3537import Data.Text (Text)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-

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

3132Conversion of 'Pandoc' format into Texinfo.

3233-}

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

35+import Prelude

3436import Control.Monad.Except (throwError)

3537import Control.Monad.State.Strict

3638import Data.Char (chr, ord)

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

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

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

3132-}

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

34+import Prelude

3335import Control.Monad.State.Strict

3436import Data.Char (isSpace)

3537import Data.List (intercalate)

src/Text/Pandoc/Writers/ZimWiki.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

34 2017-2018 Alex Ivkin

@@ -32,6 +33,7 @@ http://zim-wiki.org/manual/Help/Wiki_Syntax.html

3233-}

3334

3435module Text.Pandoc.Writers.ZimWiki ( writeZimWiki ) where

36+import Prelude

3537import Control.Monad (zipWithM)

3638import Control.Monad.State.Strict (StateT, evalStateT, gets, modify)

3739import Data.Default (Default (..))

src/Text/Pandoc/XML.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-

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

3637 toEntities,

3738 fromEntities ) where

3839

40+import Prelude

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

4042import Data.Text (Text)

4143import qualified Data.Text as T

stack.yaml+2−5

@@ -14,14 +14,11 @@ packages:

1414- '.'

1515extra-deps:

1616- pandoc-citeproc-0.14.2

17−- hslua-0.9.5

1817- skylighting-0.7.0.2

1918- skylighting-core-0.7.0.2

2019- ansi-terminal-0.7.1.1

2120- tasty-1.0.0.1

22−- texmath-0.10.1.1

23−- tagsoup-0.14.6

2421- pandoc-types-1.17.4.2

2522ghc-options:

26− "$locals": -fhide-source-paths

27−resolver: lts-10.3

23+ "$locals": -fhide-source-paths -XNoImplicitPrelude

24+resolver: lts-10.10

test/Tests/Command.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Tests.Command (findPandoc, runTest, tests)

23where

5+import Prelude

46import Data.Algorithm.Diff

57import qualified Data.ByteString as BS

68import Data.List (isSuffixOf)

test/Tests/Helpers.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE FlexibleInstances #-}

23{-# LANGUAGE TypeSynonymInstances #-}

34-- Utility functions for the test suite.

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

1314 )

1415 where

1516

17+import Prelude

1618import Data.Algorithm.Diff

1719import qualified Data.Map as M

1820import Data.Text (Text, unpack)

test/Tests/Lua.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Lua ( tests ) where

5+import Prelude

46import Control.Monad (when)

57import Data.Version (Version (versionBranch))

68import System.FilePath ((</>))

test/Tests/Old.hs+2

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Tests.Old (tests) where

4+import Prelude

35import Data.Algorithm.Diff

46import Prelude hiding (readFile)

57import System.Exit

test/Tests/Readers/Creole.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Creole (tests) where

5+import Prelude

46import Data.Text (Text)

57import qualified Data.Text as T

68import Test.Tasty

test/Tests/Readers/Docx.hs+2

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Tests.Readers.Docx (tests) where

4+import Prelude

35import Codec.Archive.Zip

46import qualified Data.ByteString as BS

57import qualified Data.ByteString.Lazy as B

test/Tests/Readers/EPUB.hs+2

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Tests.Readers.EPUB (tests) where

4+import Prelude

35import qualified Data.ByteString.Lazy as BL

46import Test.Tasty

57import Test.Tasty.HUnit

test/Tests/Readers/HTML.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.HTML (tests) where

5+import Prelude

46import Data.Text (Text)

57import Test.Tasty

68import Tests.Helpers

test/Tests/Readers/JATS.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.JATS (tests) where

5+import Prelude

46import Data.Text (Text)

57import Test.Tasty

68import Tests.Helpers

test/Tests/Readers/LaTeX.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.LaTeX (tests) where

5+import Prelude

46import Data.Text (Text)

57import qualified Data.Text as T

68import qualified Text.Pandoc.UTF8 as UTF8

test/Tests/Readers/Markdown.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Markdown (tests) where

5+import Prelude

46import Data.Text (Text, unpack)

57import qualified Data.Text as T

68import Test.Tasty

test/Tests/Readers/Muse.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Muse (tests) where

5+import Prelude

46import Data.List (intersperse)

57import Data.Text (Text)

68import qualified Data.Text as T

test/Tests/Readers/Odt.hs+2

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Tests.Readers.Odt (tests) where

4+import Prelude

35import Control.Monad (liftM)

46import qualified Data.ByteString as BS

57import qualified Data.ByteString.Lazy as B

test/Tests/Readers/Org/Block.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Org.Block (tests) where

5+import Prelude

46import Test.Tasty (TestTree, testGroup)

57import Tests.Helpers ((=?>))

68import Tests.Readers.Org.Shared ((=:), spcSep)

test/Tests/Readers/Org/Block/CodeBlock.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Org.Block.CodeBlock (tests) where

5+import Prelude

46import Test.Tasty (TestTree)

57import Tests.Helpers ((=?>))

68import Tests.Readers.Org.Shared ((=:), spcSep)

test/Tests/Readers/Org/Block/Figure.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Org.Block.Figure (tests) where

5+import Prelude

46import Test.Tasty (TestTree)

57import Tests.Helpers ((=?>))

68import Tests.Readers.Org.Shared ((=:))

test/Tests/Readers/Org/Block/Header.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Org.Block.Header (tests) where

5+import Prelude

46import Test.Tasty (TestTree, testGroup)

57import Tests.Helpers ((=?>))

68import Tests.Readers.Org.Shared ((=:), spcSep, tagSpan)

test/Tests/Readers/Org/Block/List.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Org.Block.List (tests) where

5+import Prelude

46import Test.Tasty (TestTree)

57import Tests.Helpers ((=?>))

68import Tests.Readers.Org.Shared ((=:), spcSep)

test/Tests/Readers/Org/Block/Table.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Org.Block.Table (tests) where

5+import Prelude

46import Test.Tasty (TestTree)

57import Tests.Helpers ((=?>))

68import Tests.Readers.Org.Shared ((=:), spcSep)

test/Tests/Readers/Org/Directive.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Org.Directive (tests) where

5+import Prelude

46import Data.Time (UTCTime (UTCTime), secondsToDiffTime)

57import Data.Time.Calendar (Day (ModifiedJulianDay))

68import Test.Tasty (TestTree, testGroup)

test/Tests/Readers/Org/Inline.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Org.Inline (tests) where

5+import Prelude

46import Data.List (intersperse)

57import Test.Tasty (TestTree, testGroup)

68import Tests.Helpers ((=?>))

test/Tests/Readers/Org/Inline/Citation.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Org.Inline.Citation (tests) where

5+import Prelude

46import Test.Tasty (TestTree, testGroup)

57import Tests.Helpers ((=?>))

68import Tests.Readers.Org.Shared ((=:))

test/Tests/Readers/Org/Inline/Note.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Org.Inline.Note (tests) where

5+import Prelude

46import Test.Tasty (TestTree)

57import Tests.Helpers ((=?>))

68import Tests.Readers.Org.Shared ((=:))

test/Tests/Readers/Org/Inline/Smart.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Org.Inline.Smart (tests) where

5+import Prelude

46import Data.Text (Text)

57import Test.Tasty (TestTree)

68import Tests.Helpers ((=?>), purely, test)

test/Tests/Readers/Org/Meta.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Org.Meta (tests) where

5+import Prelude

46import Test.Tasty (TestTree, testGroup)

57import Tests.Helpers ((=?>))

68import Tests.Readers.Org.Shared ((=:), spcSep)

test/Tests/Readers/Org/Shared.hs+2

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

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Tests.Readers.Org.Shared

23 ( (=:)

34 , org

@@ -5,6 +6,7 @@ module Tests.Readers.Org.Shared

56 , tagSpan

67 ) where

9+import Prelude

810import Data.List (intersperse)

911import Data.Text (Text)

1012import Tests.Helpers (ToString, purely, test)

test/Tests/Readers/RST.hs+2

@@ -1,7 +1,9 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23{-# LANGUAGE ScopedTypeVariables #-}

34module Tests.Readers.RST (tests) where

6+import Prelude

57import Data.Text (Text)

68import qualified Data.Text as T

79import Test.Tasty

test/Tests/Readers/Txt2Tags.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Readers.Txt2Tags (tests) where

5+import Prelude

46import Data.List (intersperse)

57import Data.Text (Text)

68import qualified Data.Text as T

test/Tests/Shared.hs+2

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Tests.Shared (tests) where

4+import Prelude

35import System.FilePath.Posix (joinPath)

46import Test.Tasty

57import Test.Tasty.HUnit (assertBool, testCase, (@?=))

test/Tests/Writers/AsciiDoc.hs+2

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Tests.Writers.AsciiDoc (tests) where

4+import Prelude

35import Data.Text (unpack)

46import Test.Tasty

57import Tests.Helpers

test/Tests/Writers/ConTeXt.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Writers.ConTeXt (tests) where

5+import Prelude

46import Data.Text (unpack)

57import Test.Tasty

68import Test.Tasty.QuickCheck

test/Tests/Writers/Docbook.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Writers.Docbook (tests) where

5+import Prelude

46import Data.Text (unpack)

57import Test.Tasty

68import Tests.Helpers

test/Tests/Writers/Docx.hs+2

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Tests.Writers.Docx (tests) where

4+import Prelude

35import Text.Pandoc

46import Test.Tasty

57import Tests.Writers.OOXML

test/Tests/Writers/FB2.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Writers.FB2 (tests) where

5+import Prelude

46import Test.Tasty

57import Tests.Helpers

68import Text.Pandoc

test/Tests/Writers/HTML.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Writers.HTML (tests) where

5+import Prelude

46import Data.Text (unpack)

57import Test.Tasty

68import Tests.Helpers

test/Tests/Writers/JATS.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Writers.JATS (tests) where

5+import Prelude

46import Data.Text (unpack)

57import Test.Tasty

68import Tests.Helpers

test/Tests/Writers/LaTeX.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Writers.LaTeX (tests) where

5+import Prelude

46import Data.Text (unpack)

57import Test.Tasty

68import Tests.Helpers

test/Tests/Writers/Markdown.hs+2

@@ -1,7 +1,9 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

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

34module Tests.Writers.Markdown (tests) where

6+import Prelude

57import Data.Text (unpack)

68import Test.Tasty

79import Tests.Helpers

test/Tests/Writers/Muse.hs+2

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Tests.Writers.Muse (tests) where

4+import Prelude

35import Data.Text (unpack)

46import Test.Tasty

57import Tests.Helpers

test/Tests/Writers/Native.hs+2

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Tests.Writers.Native (tests) where

4+import Prelude

35import Data.Text (unpack)

46import Test.Tasty

57import Test.Tasty.QuickCheck

test/Tests/Writers/OOXML.hs+2

@@ -1,8 +1,10 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE PatternGuards #-}

23{-# LANGUAGE OverloadedStrings #-}

45module Tests.Writers.OOXML (ooxmlTest) where

7+import Prelude

68import Text.Pandoc

79import Test.Tasty

810import Test.Tasty.Golden.Advanced

test/Tests/Writers/Org.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Writers.Org (tests) where

5+import Prelude

46import Test.Tasty

57import Tests.Helpers

68import Text.Pandoc

test/Tests/Writers/Plain.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Writers.Plain (tests) where

5+import Prelude

46import Test.Tasty

57import Tests.Helpers

68import Text.Pandoc

test/Tests/Writers/Powerpoint.hs+2

@@ -1,5 +1,7 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12module Tests.Writers.Powerpoint (tests) where

4+import Prelude

35import Tests.Writers.OOXML (ooxmlTest)

46import Text.Pandoc

57import Test.Tasty

test/Tests/Writers/RST.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Writers.RST (tests) where

5+import Prelude

46import Test.Tasty

57import Tests.Helpers

68import Text.Pandoc

test/Tests/Writers/TEI.hs+2

@@ -1,6 +1,8 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# LANGUAGE OverloadedStrings #-}

23module Tests.Writers.TEI (tests) where

5+import Prelude

46import Test.Tasty

57import Tests.Helpers

68import Text.Pandoc

test/test-pandoc.hs+2

@@ -1,7 +1,9 @@

1+{-# LANGUAGE NoImplicitPrelude #-}

12{-# OPTIONS_GHC -Wall #-}

34module Main where

6+import Prelude

57import GHC.IO.Encoding

68import Test.Tasty

79import qualified Tests.Command