Revert "Use -XNoImplicitPrelude and 'import Prelude' explicitly."
This reverts commit c423dbb5a34c2d1195020e0f0ca3aae883d0749b.
commit23b693c029d17dc9833a81b33ca241f3b6fe6cc7
authorJohn MacFarlane <jgm@berkeley.edu>
dateMon 9 Nov 2015, 10:08 (11 years ago)
parent777d717
benchmark/benchmark-pandoc.hs−1
@@ -15,7 +15,6 @@ 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
1918import Text.Pandoc
2019import Criterion.Main
2120import 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 -XNoImplicitPrelude
306+ Ghc-Options: -rtsopts -Wall -fno-warn-unused-do-bind
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 -XNoImplicitPrelude
423+ Ghc-Options: -rtsopts -with-rtsopts=-K16m -Wall -fno-warn-unused-do-bind
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 -XNoImplicitPrelude
499+ Ghc-Options: -rtsopts -Wall -fno-warn-unused-do-bind -threaded
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 -XNoImplicitPrelude
510+ Ghc-Options: -rtsopts -Wall -fno-warn-unused-do-bind
511511 Default-Language: Haskell98
512512 Other-Modules: Prelude
pandoc.hs−1
@@ -30,7 +30,6 @@ Parses command-line options and calls the appropriate readers and
3030writers.
3131-}
3232module Main where
33−import Prelude
3433import Text.Pandoc
3534import Text.Pandoc.Builder (setMeta)
3635import Text.Pandoc.PDF (makePDF)
src/Text/Pandoc.hs−1
@@ -150,7 +150,6 @@ import Text.Pandoc.Writers.RST
150150import Text.Pandoc.Writers.LaTeX
151151import Text.Pandoc.Writers.ConTeXt
152152import Text.Pandoc.Writers.Texinfo
153−import Prelude
154153import Text.Pandoc.Writers.HTML
155154import Text.Pandoc.Writers.ODT
156155import Text.Pandoc.Writers.Docx
src/Text/Pandoc/Asciify.hs−1
@@ -30,7 +30,6 @@ ascii equivalents (used in constructing HTML identifiers).
3030-}
3131module Text.Pandoc.Asciify (toAsciiChar)
3232where
33−import Prelude
3433import qualified Data.Map as M
3534import Data.Char (isAscii)
3635
src/Text/Pandoc/CSS.hs−1
@@ -3,7 +3,6 @@ module Text.Pandoc.CSS ( foldOrElse,
33 )
44where
55
6−import Prelude
76import Text.Pandoc.Shared (trim)
87import Text.Parsec
98import Text.Parsec.String
src/Text/Pandoc/Compat/Directory.hs+1
@@ -5,6 +5,7 @@ module Text.Pandoc.Compat.Directory ( getModificationTime )
55#if MIN_VERSION_directory(1,2,0)
66import System.Directory
77
8+
89#else
910import qualified System.Directory as S
1011import Data.Time.Clock (UTCTime)
src/Text/Pandoc/Compat/Except.hs−1
@@ -9,7 +9,6 @@ module Text.Pandoc.Compat.Except ( ExceptT
99 , catchError )
1010 where
1111
12−import Prelude
1312#if MIN_VERSION_mtl(2,2,1)
1413import Control.Monad.Except
1514
src/Text/Pandoc/Compat/TagSoupEntity.hs−1
@@ -2,7 +2,6 @@
22module Text.Pandoc.Compat.TagSoupEntity (lookupEntity
33 ) where
44
5−import Prelude
65import qualified Text.HTML.TagSoup.Entity as TE
76
87lookupEntity :: String -> Maybe Char
src/Text/Pandoc/Error.hs−1
@@ -31,7 +31,6 @@ during parsing.
3131-}
3232module Text.Pandoc.Error (PandocError(..), handleError) where
3333
34−import Prelude
3534import Text.Parsec.Error
3635import Text.Parsec.Pos hiding (Line)
3736import Text.Pandoc.Compat.Except
src/Text/Pandoc/Highlighting.hs−1
@@ -48,7 +48,6 @@ module Text.Pandoc.Highlighting ( languages
4848 , fromListingsLanguage
4949 , toListingsLanguage
5050 ) where
51−import Prelude
5251import Text.Pandoc.Definition
5352import Text.Pandoc.Shared (safeRead)
5453import Text.Highlighting.Kate
src/Text/Pandoc/ImageSize.hs−1
@@ -31,7 +31,6 @@ Functions for determining the size of a PNG, JPEG, or GIF image.
3131-}
3232module Text.Pandoc.ImageSize ( ImageType(..), imageType, imageSize,
3333 sizeInPixels, sizeInPoints ) where
34−import Prelude
3534import Data.ByteString (ByteString, unpack)
3635import qualified Data.ByteString.Char8 as B
3736import qualified Data.ByteString.Lazy as BL
src/Text/Pandoc/MIME.hs−1
@@ -29,7 +29,6 @@ Mime type lookup for ODT writer.
2929-}
3030module Text.Pandoc.MIME ( MimeType, getMimeType, getMimeTypeDef,
3131 extensionFromMimeType )where
32−import Prelude
3332import System.FilePath
3433import Data.Char ( toLower )
3534import Data.List (isPrefixOf, isSuffixOf)
src/Text/Pandoc/MediaBag.hs−1
@@ -36,7 +36,6 @@ module Text.Pandoc.MediaBag (
3636 mediaDirectory,
3737 extractMediaBag
3838 ) where
39−import Prelude
4039import System.FilePath
4140import qualified System.FilePath.Posix as Posix
4241import System.Directory (createDirectoryIfMissing)
src/Text/Pandoc/Options.hs−1
@@ -47,7 +47,6 @@ module Text.Pandoc.Options ( Extension(..)
4747 , def
4848 , isEnabled
4949 ) where
50−import Prelude
5150import Data.Set (Set)
5251import qualified Data.Set as Set
5352import Data.Default
src/Text/Pandoc/PDF.hs−1
@@ -30,7 +30,6 @@ Conversion of LaTeX documents to PDF.
3030-}
3131module Text.Pandoc.PDF ( makePDF ) where
3232
33−import Prelude
3433import Data.ByteString.Lazy (ByteString)
3534import qualified Data.ByteString.Lazy as B
3635import qualified Data.ByteString.Lazy.Char8 as BC
src/Text/Pandoc/Parsing.hs−1
@@ -180,7 +180,6 @@ import Data.Char ( toLower, toUpper, ord, chr, isAscii, isAlphaNum,
180180 isHexDigit, isSpace )
181181import Data.List ( intercalate, transpose, isSuffixOf )
182182import Text.Pandoc.Shared
183−import Prelude
184183import qualified Data.Map as M
185184import Text.TeXMath.Readers.TeX.Macros (applyMacros, Macro,
186185 parseMacroDefinitions)
src/Text/Pandoc/Pretty.hs−1
@@ -74,7 +74,6 @@ module Text.Pandoc.Pretty (
7474 )
7575
7676where
77−import Prelude
7877import Data.Sequence (Seq, fromList, (<|), singleton, mapWithIndex, viewl, ViewL(..))
7978import Data.Foldable (toList)
8079import Data.List (intercalate)
src/Text/Pandoc/Process.hs−1
@@ -29,7 +29,6 @@ ByteString variant of 'readProcessWithExitCode'.
2929-}
3030module Text.Pandoc.Process (pipeProcess)
3131where
32−import Prelude
3332import System.Process
3433import System.Exit (ExitCode (..))
3534import Control.Exception
src/Text/Pandoc/Readers/CommonMark.hs−1
@@ -32,7 +32,6 @@ CommonMark is a strongly specified variant of Markdown: http://commonmark.org.
3232module Text.Pandoc.Readers.CommonMark (readCommonMark)
3333where
3434
35−import Prelude
3635import CMark
3736import Data.Text (unpack, pack)
3837import Data.List (groupBy)
src/Text/Pandoc/Readers/DocBook.hs−1
@@ -1,5 +1,4 @@
11module Text.Pandoc.Readers.DocBook ( readDocBook ) where
2−import Prelude
32import Data.Char (toUpper)
43import Text.Pandoc.Shared (safeRead)
54import Text.Pandoc.Options
src/Text/Pandoc/Readers/Docx.hs−1
@@ -74,7 +74,6 @@ module Text.Pandoc.Readers.Docx
7474 ( readDocx
7575 ) where
7676
77−import Prelude
7877import Codec.Archive.Zip
7978import Text.Pandoc.Definition
8079import Text.Pandoc.Options
src/Text/Pandoc/Readers/Docx/Fonts.hs−1
@@ -29,7 +29,6 @@ Utilities to convert between font codepoints and unicode characters.
2929-}
3030module Text.Pandoc.Readers.Docx.Fonts (getUnicode, Font(..)) where
3131
32−import Prelude
3332
3433-- | Enumeration of recognised fonts
3534data Font = Symbol -- ^ <http://en.wikipedia.org/wiki/Symbol_(typeface) Adobe Symbol>
src/Text/Pandoc/Readers/Docx/Lists.hs−1
@@ -33,7 +33,6 @@ module Text.Pandoc.Readers.Docx.Lists ( blocksToBullets
3333 , listParagraphDivs
3434 ) where
3535
36−import Prelude
3736import Text.Pandoc.JSON
3837import Text.Pandoc.Generic (bottomUp)
3938import Text.Pandoc.Shared (trim)
src/Text/Pandoc/Readers/Docx/Parse.hs−1
@@ -50,7 +50,6 @@ module Text.Pandoc.Readers.Docx.Parse ( Docx(..)
5050 , Cell(..)
5151 , archiveToDocx
5252 ) where
53−import Prelude
5453import Codec.Archive.Zip
5554import Text.XML.Light
5655import Data.Maybe
src/Text/Pandoc/Readers/Docx/Reducible.hs−1
@@ -7,7 +7,6 @@ module Text.Pandoc.Readers.Docx.Reducible ( concatReduce
77 where
88
99
10−import Prelude
1110import Text.Pandoc.Builder
1211import Data.List
1312import Data.Sequence (ViewR(..), ViewL(..), viewl, viewr)
src/Text/Pandoc/Readers/Docx/StyleMap.hs−1
@@ -5,7 +5,6 @@ module Text.Pandoc.Readers.Docx.StyleMap ( StyleMaps(..)
55 , hasStyleName
66 ) where
77
8−import Prelude
98import Text.XML.Light
109import Text.Pandoc.Readers.Docx.Util
1110import Control.Monad.State
src/Text/Pandoc/Readers/Docx/Util.hs−1
@@ -5,7 +5,6 @@ module Text.Pandoc.Readers.Docx.Util (
55 , elemToNameSpaces
66 ) where
77
8−import Prelude
98import Text.XML.Light
109import Data.Maybe (mapMaybe)
1110
src/Text/Pandoc/Readers/EPUB.hs−1
@@ -8,7 +8,6 @@ module Text.Pandoc.Readers.EPUB
88 (readEPUB)
99 where
1010
11−import Prelude
1211import Text.XML.Light
1312import Text.Pandoc.Definition hiding (Attr)
1413import Text.Pandoc.Walk (walk, query)
src/Text/Pandoc/Readers/HTML.hs−1
@@ -38,7 +38,6 @@ module Text.Pandoc.Readers.HTML ( readHtml
3838 , isCommentTag
3939 ) where
4040
41−import Prelude
4241import Text.HTML.TagSoup
4342import Text.HTML.TagSoup.Match
4443import Text.Pandoc.Definition
src/Text/Pandoc/Readers/Haddock.hs+1−2
@@ -14,7 +14,6 @@ module Text.Pandoc.Readers.Haddock
1414 ( readHaddock
1515 ) where
1616
17−import Prelude
1817import Text.Pandoc.Builder (Blocks, Inlines)
1918import qualified Text.Pandoc.Builder as B
2019import Text.Pandoc.Shared (trim, splitBy)
@@ -130,7 +129,7 @@ makeExample prompt expression result =
130129 <> (mconcat $ intersperse B.linebreak $ map coder result')
131130 where
132131 -- 1. drop trailing whitespace from the prompt, remember the prefix
133− prefix = takeWhile (`elem` [' ','\t']) prompt
132+ prefix = takeWhile (`elem` " \t") prompt
134133
135134 -- 2. drop, if possible, the exact same sequence of whitespace
136135 -- characters from each result line
src/Text/Pandoc/Readers/LaTeX.hs−1
@@ -35,7 +35,6 @@ module Text.Pandoc.Readers.LaTeX ( readLaTeX,
3535 handleIncludes
3636 ) where
3737
38−import Prelude
3938import Text.Pandoc.Definition
4039import Text.Pandoc.Walk
4140import Text.Pandoc.Shared
src/Text/Pandoc/Readers/Markdown.hs−1
@@ -32,7 +32,6 @@ Conversion of markdown-formatted plain text to 'Pandoc' document.
3232module Text.Pandoc.Readers.Markdown ( readMarkdown,
3333 readMarkdownWithWarnings ) where
3434
35−import Prelude
3635import Data.List ( transpose, sortBy, findIndex, intersperse, intercalate )
3736import qualified Data.Map as M
3837import Data.Scientific (coefficient, base10Exponent)
src/Text/Pandoc/Readers/MediaWiki.hs−1
@@ -36,7 +36,6 @@ _ parse templates?
3636-}
3737module Text.Pandoc.Readers.MediaWiki ( readMediaWiki ) where
3838
39−import Prelude
4039import Text.Pandoc.Definition
4140import qualified Text.Pandoc.Builder as B
4241import Text.Pandoc.Builder (Inlines, Blocks, trimInlines)
src/Text/Pandoc/Readers/Native.hs−1
@@ -30,7 +30,6 @@ Conversion of a string representation of a pandoc type (@Pandoc@,
3030-}
3131module Text.Pandoc.Readers.Native ( readNative ) where
3232
33−import Prelude
3433import Text.Pandoc.Definition
3534import Text.Pandoc.Shared (safeRead)
3635
src/Text/Pandoc/Readers/OPML.hs−1
@@ -1,6 +1,5 @@
11{-# LANGUAGE FlexibleContexts #-}
22module Text.Pandoc.Readers.OPML ( readOPML ) where
3−import Prelude
43import Data.Char (toUpper)
54import Text.Pandoc.Options
65import Text.Pandoc.Definition
src/Text/Pandoc/Readers/Odt.hs−1
@@ -32,7 +32,6 @@ Entry point to the odt reader.
3232
3333module Text.Pandoc.Readers.Odt ( readOdt ) where
3434
35−import Prelude
3635import Codec.Archive.Zip
3736import qualified Text.XML.Light as XML
3837
src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs−1
@@ -39,7 +39,6 @@ with an equivalent return value.
3939-- We export everything
4040module Text.Pandoc.Readers.Odt.Arrows.Utils where
4141
42−import Prelude
4342import Control.Arrow
4443import Control.Monad ( join, MonadPlus(..) )
4544
src/Text/Pandoc/Readers/Odt/ContentReader.hs−1
@@ -39,7 +39,6 @@ module Text.Pandoc.Readers.Odt.ContentReader
3939, read_body
4040) where
4141
42−import Prelude
4342import Control.Arrow
4443import Control.Applicative hiding ( liftA, liftA2, liftA3 )
4544
src/Text/Pandoc/Readers/Odt/Generic/Fallible.hs−1
@@ -39,7 +39,6 @@ compatible instances of "ArrowChoice".
3939-- We export everything
4040module Text.Pandoc.Readers.Odt.Generic.Fallible where
4141
42−import Prelude
4342import Control.Applicative
4443import Control.Monad
4544
src/Text/Pandoc/Readers/Odt/Generic/Namespaces.hs−1
@@ -31,7 +31,6 @@ typesafe Haskell namespace identifiers and unsafe "real world" namespaces.
3131
3232module Text.Pandoc.Readers.Odt.Generic.Namespaces where
3333
34−import Prelude
3534import qualified Data.Map as M
3635
3736--
src/Text/Pandoc/Readers/Odt/Generic/SetMap.hs−1
@@ -30,7 +30,6 @@ A map of values to sets of values.
3030
3131module Text.Pandoc.Readers.Odt.Generic.SetMap where
3232
33−import Prelude
3433import qualified Data.Map as M
3534import qualified Data.Set as S
3635
src/Text/Pandoc/Readers/Odt/Generic/Utils.hs−1
@@ -53,7 +53,6 @@ module Text.Pandoc.Readers.Odt.Generic.Utils
5353, composition
5454) where
5555
56−import Prelude
5756import Control.Category ( Category, (>>>), (<<<) )
5857import qualified Control.Category as Cat ( id )
5958import Control.Monad ( msum )
src/Text/Pandoc/Readers/Odt/Generic/XMLConverter.hs−1
@@ -116,7 +116,6 @@ module Text.Pandoc.Readers.Odt.Generic.XMLConverter
116116, matchContent
117117) where
118118
119−import Prelude
120119import Control.Applicative hiding ( liftA, liftA2 )
121120import Control.Monad ( MonadPlus )
122121import Control.Arrow
src/Text/Pandoc/Readers/Odt/Namespaces.hs−1
@@ -31,7 +31,6 @@ Namespaces used in odt files.
3131module Text.Pandoc.Readers.Odt.Namespaces ( Namespace (..)
3232 ) where
3333
34−import Prelude
3534import Data.List ( isPrefixOf )
3635import Data.Maybe ( fromMaybe, listToMaybe )
3736import qualified Data.Map as M ( empty, insert )
src/Text/Pandoc/Readers/Odt/StyleReader.hs−1
@@ -70,7 +70,6 @@ module Text.Pandoc.Readers.Odt.StyleReader
7070, readStylesAt
7171) where
7272
73−import Prelude
7473import Control.Arrow
7574import Control.Applicative hiding ( liftA, liftA2, liftA3 )
7675
src/Text/Pandoc/Readers/Org.hs−1
@@ -30,7 +30,6 @@ Conversion of org-mode formatted plain text to 'Pandoc' document.
3030-}
3131module Text.Pandoc.Readers.Org ( readOrg ) where
3232
33−import Prelude
3433import qualified Text.Pandoc.Builder as B
3534import Text.Pandoc.Builder ( Inlines, Blocks, HasMeta(..),
3635 trimInlines )
src/Text/Pandoc/Readers/RST.hs−1
@@ -33,7 +33,6 @@ module Text.Pandoc.Readers.RST (
3333 readRST,
3434 readRSTWithWarnings
3535 ) where
36−import Prelude
3736import Text.Pandoc.Definition
3837import Text.Pandoc.Builder (setMeta, fromList)
3938import Text.Pandoc.Shared
src/Text/Pandoc/Readers/TWiki.hs−1
@@ -33,7 +33,6 @@ module Text.Pandoc.Readers.TWiki ( readTWiki
3333 , readTWikiWithWarnings
3434 ) where
3535
36−import Prelude
3736import Text.Pandoc.Definition
3837import qualified Text.Pandoc.Builder as B
3938import Text.Pandoc.Options
src/Text/Pandoc/Readers/TeXMath.hs−1
@@ -29,7 +29,6 @@ Conversion of TeX math to a list of 'Pandoc' inline elements.
2929-}
3030module Text.Pandoc.Readers.TeXMath ( texMathToInlines ) where
3131
32−import Prelude
3332import Text.Pandoc.Definition
3433import Text.TeXMath
3534
src/Text/Pandoc/Readers/Textile.hs−1
@@ -51,7 +51,6 @@ TODO : refactor common patterns across readers :
5151
5252
5353module Text.Pandoc.Readers.Textile ( readTextile) where
54−import Prelude
5554import Text.Pandoc.Definition
5655import Text.Pandoc.Builder (Inlines, Blocks, trimInlines)
5756import qualified Text.Pandoc.Builder as B
src/Text/Pandoc/Readers/Txt2Tags.hs−1
@@ -32,7 +32,6 @@ module Text.Pandoc.Readers.Txt2Tags ( readTxt2Tags
3232 , readTxt2TagsNoMacros)
3333 where
3434
35−import Prelude
3635import qualified Text.Pandoc.Builder as B
3736import Text.Pandoc.Builder ( Inlines, Blocks, trimInlines )
3837import Text.Pandoc.Definition
src/Text/Pandoc/SelfContained.hs−1
@@ -31,7 +31,6 @@ offline, by incorporating linked images, CSS, and scripts into
3131the HTML using data URIs.
3232-}
3333module Text.Pandoc.SelfContained ( makeSelfContained ) where
34−import Prelude
3534import Text.HTML.TagSoup
3635import Network.URI (isURI, escapeURIString, URI(..), parseURI)
3736import Data.ByteString.Base64
src/Text/Pandoc/Shared.hs+5−6
@@ -97,7 +97,6 @@ module Text.Pandoc.Shared (
9797 pandocVersion
9898 ) where
9999
100−import Prelude
101100import Text.Pandoc.Definition
102101import Text.Pandoc.Walk
103102import Text.Pandoc.MediaBag (MediaBag, lookupMedia)
@@ -247,7 +246,7 @@ trim = triml . trimr
247246
248247-- | Remove leading space (including newlines) from string.
249248triml :: String -> String
250−triml = dropWhile (`elem` [' ','\r','\n','\t'])
249+triml = dropWhile (`elem` " \r\n\t")
251250
252251-- | Remove trailing space (including newlines) from string.
253252trimr :: String -> String
@@ -660,7 +659,7 @@ inlineListToIdentifier :: [Inline] -> String
660659inlineListToIdentifier =
661660 dropWhile (not . isAlpha) . intercalate "-" . words .
662661 map (nbspToSp . toLower) .
663− filter (\c -> isLetter c || isDigit c || c `elem` ['_','-','.',' ']) .
662+ filter (\c -> isLetter c || isDigit c || c `elem` "_-. ") .
664663 stringify
665664 where nbspToSp '\160' = ' '
666665 nbspToSp x = x
@@ -914,9 +913,9 @@ fetchItem' media sourceURL s = do
914913-- | Read from a URL and return raw data and maybe mime type.
915914openURL :: String -> IO (Either E.SomeException (BS.ByteString, Maybe MimeType))
916915openURL u
917− | Just u'' <- stripPrefix "data:" u =
918− let mime = takeWhile (/=',') u''
919− contents = B8.pack $ unEscapeString $ drop 1 $ dropWhile (/=',') u''
916+ | Just u' <- stripPrefix "data:" u =
917+ let mime = takeWhile (/=',') u'
918+ contents = B8.pack $ unEscapeString $ drop 1 $ dropWhile (/=',') u'
920919 in return $ Right (decodeLenient contents, Just mime)
921920#ifdef HTTP_CLIENT
922921 | otherwise = withSocketsDo $ E.try $ do
src/Text/Pandoc/Slides.hs−1
@@ -29,7 +29,6 @@ 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
3332import Text.Pandoc.Definition
3433
3534-- | Find level of header that starts slides (defined as the least header
src/Text/Pandoc/Templates.hs−1
@@ -93,7 +93,6 @@ module Text.Pandoc.Templates ( renderTemplate
9393 , Template
9494 , getDefaultTemplate ) where
9595
96−import Prelude
9796import Data.Char (isAlphaNum)
9897import Control.Monad (guard, when)
9998import Data.Aeson (ToJSON(..), Value(..))
src/Text/Pandoc/UUID.hs−1
@@ -31,7 +31,6 @@ in RFC4122. See http://tools.ietf.org/html/rfc4122
3131
3232module Text.Pandoc.UUID ( UUID, getRandomUUID ) where
3333
34−import Prelude
3534import Text.Printf ( printf )
3635import System.Random ( randomIO )
3736import Data.Word
src/Text/Pandoc/Writers/AsciiDoc.hs−1
@@ -37,7 +37,6 @@ that it has omitted the construct.
3737AsciiDoc: <http://www.methods.co.nz/asciidoc/>
3838-}
3939module Text.Pandoc.Writers.AsciiDoc (writeAsciiDoc) where
40−import Prelude
4140import Text.Pandoc.Definition
4241import Text.Pandoc.Templates (renderTemplate')
4342import Text.Pandoc.Shared
src/Text/Pandoc/Writers/CommonMark.hs−1
@@ -31,7 +31,6 @@ CommonMark: <http://commonmark.org>
3131-}
3232module Text.Pandoc.Writers.CommonMark (writeCommonMark) where
3333
34−import Prelude
3534import Text.Pandoc.Writers.HTML (writeHtmlString)
3635import Text.Pandoc.Definition
3736import Text.Pandoc.Shared (isTightList)
src/Text/Pandoc/Writers/ConTeXt.hs−1
@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
2929Conversion of 'Pandoc' format into ConTeXt.
3030-}
3131module Text.Pandoc.Writers.ConTeXt ( writeConTeXt ) where
32−import Prelude
3332import Text.Pandoc.Definition
3433import Text.Pandoc.Shared
3534import Text.Pandoc.Writers.Shared
src/Text/Pandoc/Writers/Custom.hs−1
@@ -35,7 +35,6 @@ Conversion of 'Pandoc' documents to custom markup using
3535a lua writer.
3636-}
3737module Text.Pandoc.Writers.Custom ( writeCustom ) where
38−import Prelude
3938import Text.Pandoc.Definition
4039import Text.Pandoc.Options
4140import Data.List ( intersperse )
src/Text/Pandoc/Writers/Docbook.hs−1
@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
2929Conversion of 'Pandoc' documents to Docbook XML.
3030-}
3131module Text.Pandoc.Writers.Docbook ( writeDocbook) where
32−import Prelude
3332import Text.Pandoc.Definition
3433import Text.Pandoc.XML
3534import Text.Pandoc.Shared
src/Text/Pandoc/Writers/Docx.hs−1
@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
2929Conversion of 'Pandoc' documents to docx.
3030-}
3131module Text.Pandoc.Writers.Docx ( writeDocx ) where
32−import Prelude
3332import Data.List ( intercalate, isPrefixOf, isSuffixOf )
3433import qualified Data.ByteString as B
3534import qualified Data.ByteString.Lazy as BL
src/Text/Pandoc/Writers/DokuWiki.hs−1
@@ -39,7 +39,6 @@ DokuWiki: <https://www.dokuwiki.org/dokuwiki>
3939-}
4040
4141module Text.Pandoc.Writers.DokuWiki ( writeDokuWiki ) where
42−import Prelude
4342import Text.Pandoc.Definition
4443import Text.Pandoc.Options ( WriterOptions(
4544 writerTableOfContents
src/Text/Pandoc/Writers/EPUB.hs−1
@@ -29,7 +29,6 @@ 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
3332import Data.IORef ( IORef, newIORef, readIORef, modifyIORef )
3433import qualified Data.Map as M
3534import Data.Maybe ( fromMaybe, catMaybes )
src/Text/Pandoc/Writers/FB2.hs−1
@@ -27,7 +27,6 @@ FictionBook is an XML-based e-book format. For more information see:
2727-}
2828module Text.Pandoc.Writers.FB2 (writeFB2) where
2929
30−import Prelude
3130import Control.Monad.State (StateT, evalStateT, get, modify)
3231import Control.Monad.State (liftM, liftM2, liftIO)
3332import Data.ByteString.Base64 (encode)
src/Text/Pandoc/Writers/HTML.hs−1
@@ -30,7 +30,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
3030Conversion of 'Pandoc' documents to HTML.
3131-}
3232module Text.Pandoc.Writers.HTML ( writeHtml , writeHtmlString ) where
33−import Prelude
3433import Text.Pandoc.Definition
3534import Text.Pandoc.Shared
3635import Text.Pandoc.Writers.Shared
src/Text/Pandoc/Writers/Haddock.hs−1
@@ -31,7 +31,6 @@ 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
3534import Text.Pandoc.Definition
3635import Text.Pandoc.Templates (renderTemplate')
3736import Text.Pandoc.Shared
src/Text/Pandoc/Writers/ICML.hs−1
@@ -14,7 +14,6 @@ InCopy is the companion word-processor to Adobe InDesign and ICML documents can
1414into InDesign with File -> Place.
1515-}
1616module Text.Pandoc.Writers.ICML (writeICML) where
17−import Prelude
1817import Text.Pandoc.Definition
1918import Text.Pandoc.XML
2019import Text.Pandoc.Writers.Shared
src/Text/Pandoc/Writers/LaTeX.hs−1
@@ -30,7 +30,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
3030Conversion of 'Pandoc' format into LaTeX.
3131-}
3232module Text.Pandoc.Writers.LaTeX ( writeLaTeX ) where
33−import Prelude
3433import Text.Pandoc.Definition
3534import Text.Pandoc.Walk
3635import Text.Pandoc.Shared
src/Text/Pandoc/Writers/Man.hs−1
@@ -29,7 +29,6 @@ Conversion of 'Pandoc' documents to groff man page format.
2929
3030-}
3131module Text.Pandoc.Writers.Man ( writeMan) where
32−import Prelude
3332import Text.Pandoc.Definition
3433import Text.Pandoc.Templates
3534import Text.Pandoc.Shared
src/Text/Pandoc/Writers/Markdown.hs−1
@@ -31,7 +31,6 @@ 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
3534import Text.Pandoc.Definition
3635import Text.Pandoc.Walk
3736import Text.Pandoc.Templates (renderTemplate')
src/Text/Pandoc/Writers/MediaWiki.hs−1
@@ -30,7 +30,6 @@ 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
3433import Text.Pandoc.Definition
3534import Text.Pandoc.Options
3635import Text.Pandoc.Shared
src/Text/Pandoc/Writers/Native.hs−1
@@ -34,7 +34,6 @@ metadata.
3434-}
3535module Text.Pandoc.Writers.Native ( writeNative )
3636where
37−import Prelude
3837import Text.Pandoc.Options ( WriterOptions(..) )
3938import Data.List ( intersperse )
4039import Text.Pandoc.Definition
src/Text/Pandoc/Writers/ODT.hs−1
@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
2929Conversion of 'Pandoc' documents to ODT.
3030-}
3131module Text.Pandoc.Writers.ODT ( writeODT ) where
32−import Prelude
3332import Data.IORef
3433import Data.List ( isPrefixOf )
3534import Data.Maybe ( fromMaybe )
src/Text/Pandoc/Writers/OPML.hs−1
@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
2929Conversion of 'Pandoc' documents to OPML XML.
3030-}
3131module Text.Pandoc.Writers.OPML ( writeOPML) where
32−import Prelude
3332import Text.Pandoc.Definition
3433import Text.Pandoc.XML
3534import Text.Pandoc.Writers.Shared
src/Text/Pandoc/Writers/OpenDocument.hs−1
@@ -30,7 +30,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
3030Conversion of 'Pandoc' documents to OpenDocument XML.
3131-}
3232module Text.Pandoc.Writers.OpenDocument ( writeOpenDocument ) where
33−import Prelude
3433import Text.Pandoc.Definition
3534import Text.Pandoc.Options
3635import Text.Pandoc.XML
src/Text/Pandoc/Writers/Org.hs−1
@@ -32,7 +32,6 @@ Conversion of 'Pandoc' documents to Emacs Org-Mode.
3232Org-Mode: <http://orgmode.org>
3333-}
3434module Text.Pandoc.Writers.Org ( writeOrg) where
35−import Prelude
3635import Text.Pandoc.Definition
3736import Text.Pandoc.Options
3837import Text.Pandoc.Shared
src/Text/Pandoc/Writers/RST.hs−1
@@ -31,7 +31,6 @@ Conversion of 'Pandoc' documents to reStructuredText.
3131reStructuredText: <http://docutils.sourceforge.net/rst.html>
3232-}
3333module Text.Pandoc.Writers.RST ( writeRST ) where
34−import Prelude
3534import Text.Pandoc.Definition
3635import Text.Pandoc.Options
3736import Text.Pandoc.Shared
src/Text/Pandoc/Writers/RTF.hs−1
@@ -28,7 +28,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
2828Conversion of 'Pandoc' documents to RTF (rich text format).
2929-}
3030module Text.Pandoc.Writers.RTF ( writeRTF, writeRTFWithEmbeddedImages ) where
31−import Prelude
3231import Text.Pandoc.Definition
3332import Text.Pandoc.Options
3433import Text.Pandoc.Shared
src/Text/Pandoc/Writers/Shared.hs−1
@@ -37,7 +37,6 @@ module Text.Pandoc.Writers.Shared (
3737 , fixDisplayMath
3838 )
3939where
40−import Prelude
4140import Text.Pandoc.Definition
4241import Text.Pandoc.Pretty
4342import Text.Pandoc.XML (escapeStringForXML)
src/Text/Pandoc/Writers/Texinfo.hs−1
@@ -29,7 +29,6 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
2929Conversion of 'Pandoc' format into Texinfo.
3030-}
3131module Text.Pandoc.Writers.Texinfo ( writeTexinfo ) where
32−import Prelude
3332import Text.Pandoc.Definition
3433import Text.Pandoc.Options
3534import Text.Pandoc.Shared
src/Text/Pandoc/Writers/Textile.hs−1
@@ -30,7 +30,6 @@ 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
3433import Text.Pandoc.Definition
3534import Text.Pandoc.Options
3635import Text.Pandoc.Shared
src/Text/Pandoc/XML.hs−1
@@ -36,7 +36,6 @@ module Text.Pandoc.XML ( escapeCharForXML,
3636 toEntities,
3737 fromEntities ) where
3838
39−import Prelude
4039import Text.Pandoc.Pretty
4140import Data.Char (ord, isAscii, isSpace)
4241import Text.Pandoc.Compat.TagSoupEntity (lookupEntity)
tests/Tests/Arbitrary.hs−1
@@ -3,7 +3,6 @@
33-- provides Arbitrary instance for Pandoc types
44module Tests.Arbitrary ()
55where
6−import Prelude
76import Test.QuickCheck.Gen
87import Test.QuickCheck.Arbitrary
98import Control.Monad (liftM, liftM2)
tests/Tests/Helpers.hs−1
@@ -9,7 +9,6 @@ module Tests.Helpers ( test
99 )
1010 where
1111
12−import Prelude
1312import Text.Pandoc.Definition
1413import Text.Pandoc.Builder (Inlines, Blocks, doc, plain)
1514import Test.Framework
tests/Tests/Old.hs−1
@@ -1,6 +1,5 @@
11module Tests.Old (tests) where
22
3−import Prelude
43import Test.Framework (testGroup, Test )
54import Test.Framework.Providers.HUnit
65import Test.HUnit ( assertBool )
tests/Tests/Readers/Docx.hs−1
@@ -1,6 +1,5 @@
11module Tests.Readers.Docx (tests) where
22
3−import Prelude
43import Text.Pandoc.Options
54import Text.Pandoc.Readers.Native
65import Text.Pandoc.Definition
tests/Tests/Readers/EPUB.hs−1
@@ -1,6 +1,5 @@
11module Tests.Readers.EPUB (tests) where
22
3−import Prelude
43import Text.Pandoc.Options
54import Test.Framework
65import Test.HUnit (assertBool)
tests/Tests/Readers/HTML.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Tests.Readers.HTML (tests) where
33
4−import Prelude
54import Text.Pandoc.Definition
65import Test.Framework
76import Tests.Helpers
tests/Tests/Readers/LaTeX.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Tests.Readers.LaTeX (tests) where
33
4−import Prelude
54import Text.Pandoc.Definition
65import Test.Framework
76import Tests.Helpers
tests/Tests/Readers/Markdown.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Tests.Readers.Markdown (tests) where
33
4−import Prelude
54import Text.Pandoc.Definition
65import Test.Framework
76import Tests.Helpers
tests/Tests/Readers/Odt.hs+1−2
@@ -1,6 +1,5 @@
11module Tests.Readers.Odt (tests) where
22
3−import Prelude
43import Control.Monad ( liftM )
54import Text.Pandoc.Options
65import Text.Pandoc.Readers.Native
@@ -163,4 +162,4 @@ namesOfTestsComparingToNative = [ "blockquote"
163162-- , "table"
164163 , "unicode"
165164 , "unorderedList"
166− ]
165+ ]
tests/Tests/Readers/Org.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Tests.Readers.Org (tests) where
33
4−import Prelude
54import Text.Pandoc.Definition
65import Test.Framework
76import Tests.Helpers
tests/Tests/Readers/RST.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-}
22module Tests.Readers.RST (tests) where
33
4−import Prelude
54import Text.Pandoc.Definition
65import Test.Framework
76import Tests.Helpers
tests/Tests/Readers/Txt2Tags.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Tests.Readers.Txt2Tags (tests) where
33
4−import Prelude
54import Text.Pandoc.Definition
65import Test.Framework
76import Tests.Helpers
tests/Tests/Shared.hs−1
@@ -1,6 +1,5 @@
11module Tests.Shared (tests) where
22
3−import Prelude
43import Text.Pandoc.Definition
54import Text.Pandoc.Shared
65import Test.Framework
tests/Tests/Walk.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE ScopedTypeVariables, FlexibleContexts #-}
22module Tests.Walk (tests) where
33
4−import Prelude
54import Text.Pandoc.Definition
65import Text.Pandoc.Walk
76import Test.Framework
tests/Tests/Writers/AsciiDoc.hs−1
@@ -1,6 +1,5 @@
11module Tests.Writers.AsciiDoc (tests) where
22
3−import Prelude
43import Test.Framework
54import Text.Pandoc.Builder
65import Text.Pandoc
tests/Tests/Writers/ConTeXt.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Tests.Writers.ConTeXt (tests) where
33
4−import Prelude
54import Test.Framework
65import Text.Pandoc.Builder
76import Text.Pandoc
tests/Tests/Writers/Docbook.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Tests.Writers.Docbook (tests) where
33
4−import Prelude
54import Test.Framework
65import Text.Pandoc.Builder
76import Text.Pandoc
tests/Tests/Writers/Docx.hs−1
@@ -1,6 +1,5 @@
11module Tests.Writers.Docx (tests) where
22
3−import Prelude
43import Text.Pandoc.Options
54import Text.Pandoc.Readers.Native
65import Text.Pandoc.Definition
tests/Tests/Writers/HTML.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Tests.Writers.HTML (tests) where
33
4−import Prelude
54import Test.Framework
65import Text.Pandoc.Builder
76import Text.Pandoc
tests/Tests/Writers/LaTeX.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Tests.Writers.LaTeX (tests) where
33
4−import Prelude
54import Test.Framework
65import Text.Pandoc.Builder
76import Text.Pandoc
tests/Tests/Writers/Markdown.hs−1
@@ -2,7 +2,6 @@
22{-# OPTIONS_GHC -fno-warn-name-shadowing #-}
33module Tests.Writers.Markdown (tests) where
44
5−import Prelude
65import Test.Framework
76import Text.Pandoc.Builder
87import Text.Pandoc
tests/Tests/Writers/Native.hs−1
@@ -1,6 +1,5 @@
11module Tests.Writers.Native (tests) where
22
3−import Prelude
43import Test.Framework
54import Text.Pandoc.Builder
65import Text.Pandoc
tests/Tests/Writers/Plain.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Tests.Writers.Plain (tests) where
33
4−import Prelude
54import Test.Framework
65import Text.Pandoc.Builder
76import Text.Pandoc
tests/Tests/Writers/RST.hs−1
@@ -1,7 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22module Tests.Writers.RST (tests) where
33
4−import Prelude
54import Test.Framework
65import Text.Pandoc.Builder
76import Text.Pandoc
tests/test-pandoc.hs−1
@@ -2,7 +2,6 @@
22
33module Main where
44
5−import Prelude
65import Test.Framework
76import GHC.IO.Encoding
87import qualified Tests.Old