git.iko.soy/typeable/pandoc
on master help sign in
Use implicit Prelude (#6187)

* Use implicit Prelude The previous behavior was introduced as a fix for #4464. It seems that this change alone did not fix the issue, and `stack ghci` and `cabal repl` only work with GHC 8.4.1 or newer, as no custom Prelude is loaded for these versions. Given this, it seems cleaner to revert to the implicit Prelude. * PandocMonad: remove outdated check for base version Only base versions 4.9 and later are supported, the check for `MIN_VERSION_base(4,8,0)` is therefore unnecessary. * Always use custom prelude Previously, the custom prelude was used only with older GHC versions, as a workaround for problems with ghci. The ghci problems are resolved by replacing package `base` with `base-noprelude`, allowing for consistent use of the custom prelude across all GHC versions.

commita5fa55969f1b4afc0ca3e38be50b69c65d43a460 authorAlbert Krewinkel <albert@zeitkraut.de> dateSun 15 Mar 2020, 17:45 (7 years ago) parent76705df
160 files changed+33−353
compare with master
unifiedsplit
pandoc.cabal+31−41 prelude/Prelude.hs−2 src/Text/Pandoc/App.hs−2 src/Text/Pandoc/App/CommandLineOptions.hs+2−4 src/Text/Pandoc/App/FormatHeuristics.hs−2 src/Text/Pandoc/App/Opt.hs−2 src/Text/Pandoc/App/OutputSettings.hs−2 src/Text/Pandoc/Asciify.hs−2 src/Text/Pandoc/BCP47.hs−2 src/Text/Pandoc/CSS.hs−2 src/Text/Pandoc/CSV.hs−2 src/Text/Pandoc/Class.hs−1 src/Text/Pandoc/Class/PandocMonad.hs−2 src/Text/Pandoc/Data.hs−2 src/Text/Pandoc/Emoji.hs−2 src/Text/Pandoc/Error.hs−2 src/Text/Pandoc/Extensions.hs−2 src/Text/Pandoc/Filter.hs−2 src/Text/Pandoc/Filter/JSON.hs−2 src/Text/Pandoc/Filter/Lua.hs−2 src/Text/Pandoc/Filter/Path.hs−2 src/Text/Pandoc/Highlighting.hs−2 src/Text/Pandoc/Image.hs−2 src/Text/Pandoc/ImageSize.hs−2 src/Text/Pandoc/Logging.hs−2 src/Text/Pandoc/Lua.hs−1 src/Text/Pandoc/Lua/Filter.hs−2 src/Text/Pandoc/Lua/Global.hs−2 src/Text/Pandoc/Lua/Init.hs−2 src/Text/Pandoc/Lua/Marshaling/AST.hs−2 src/Text/Pandoc/Lua/Marshaling/AnyValue.hs−2 src/Text/Pandoc/Lua/Marshaling/CommonState.hs−2 src/Text/Pandoc/Lua/Marshaling/Context.hs−2 src/Text/Pandoc/Lua/Marshaling/List.hs−2 src/Text/Pandoc/Lua/Marshaling/MediaBag.hs−2 src/Text/Pandoc/Lua/Marshaling/ReaderOptions.hs−2 src/Text/Pandoc/Lua/Marshaling/Version.hs−2 src/Text/Pandoc/Lua/Module/MediaBag.hs−2 src/Text/Pandoc/Lua/Module/Pandoc.hs−2 src/Text/Pandoc/Lua/Module/System.hs−1 src/Text/Pandoc/Lua/Module/Types.hs−1 src/Text/Pandoc/Lua/Module/Utils.hs−2 src/Text/Pandoc/Lua/Packages.hs−2 src/Text/Pandoc/Lua/Util.hs−2 src/Text/Pandoc/Lua/Walk.hs−2 src/Text/Pandoc/MIME.hs−2 src/Text/Pandoc/MediaBag.hs−2 src/Text/Pandoc/Options.hs−2 src/Text/Pandoc/PDF.hs−2 src/Text/Pandoc/Parsing.hs−2 src/Text/Pandoc/Process.hs−2 src/Text/Pandoc/Readers.hs−2 src/Text/Pandoc/Readers/CSV.hs−2 src/Text/Pandoc/Readers/CommonMark.hs−2 src/Text/Pandoc/Readers/Creole.hs−2 src/Text/Pandoc/Readers/DocBook.hs−2 src/Text/Pandoc/Readers/Docx.hs−2 src/Text/Pandoc/Readers/Docx/Combine.hs−2 src/Text/Pandoc/Readers/Docx/Fields.hs−2 src/Text/Pandoc/Readers/Docx/Lists.hs−2 src/Text/Pandoc/Readers/Docx/Parse.hs−2 src/Text/Pandoc/Readers/Docx/Parse/Styles.hs−2 src/Text/Pandoc/Readers/Docx/Util.hs−2 src/Text/Pandoc/Readers/DokuWiki.hs−2 src/Text/Pandoc/Readers/EPUB.hs−2 src/Text/Pandoc/Readers/FB2.hs−1 src/Text/Pandoc/Readers/HTML.hs−2 src/Text/Pandoc/Readers/Haddock.hs−2 src/Text/Pandoc/Readers/Ipynb.hs−2 src/Text/Pandoc/Readers/JATS.hs−2 src/Text/Pandoc/Readers/Jira.hs−2 src/Text/Pandoc/Readers/LaTeX.hs−2 src/Text/Pandoc/Readers/LaTeX/Lang.hs−2 src/Text/Pandoc/Readers/LaTeX/Parsing.hs−2 src/Text/Pandoc/Readers/LaTeX/Types.hs−2 src/Text/Pandoc/Readers/Man.hs−1 src/Text/Pandoc/Readers/Markdown.hs−2 src/Text/Pandoc/Readers/MediaWiki.hs−2 src/Text/Pandoc/Readers/Metadata.hs−2 src/Text/Pandoc/Readers/Muse.hs−2 src/Text/Pandoc/Readers/Native.hs−2 src/Text/Pandoc/Readers/OPML.hs−2 src/Text/Pandoc/Readers/Odt.hs−2 src/Text/Pandoc/Readers/Odt/Arrows/State.hs−2 src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs−2 src/Text/Pandoc/Readers/Odt/ContentReader.hs−2 src/Text/Pandoc/Readers/Odt/Generic/Fallible.hs−2 src/Text/Pandoc/Readers/Odt/Generic/Namespaces.hs−2 src/Text/Pandoc/Readers/Odt/Generic/SetMap.hs−2 src/Text/Pandoc/Readers/Odt/Generic/Utils.hs−2 src/Text/Pandoc/Readers/Odt/Generic/XMLConverter.hs−2 src/Text/Pandoc/Readers/Odt/Namespaces.hs−2 src/Text/Pandoc/Readers/Odt/StyleReader.hs−2 src/Text/Pandoc/Readers/Org.hs−2 src/Text/Pandoc/Readers/Org/BlockStarts.hs−2 src/Text/Pandoc/Readers/Org/Blocks.hs−2 src/Text/Pandoc/Readers/Org/DocumentTree.hs−2 src/Text/Pandoc/Readers/Org/ExportSettings.hs−2 src/Text/Pandoc/Readers/Org/Inlines.hs−2 src/Text/Pandoc/Readers/Org/Meta.hs−2 src/Text/Pandoc/Readers/Org/ParserState.hs−2 src/Text/Pandoc/Readers/Org/Parsing.hs−2 src/Text/Pandoc/Readers/Org/Shared.hs−2 src/Text/Pandoc/Readers/RST.hs−2 src/Text/Pandoc/Readers/Roff.hs−1 src/Text/Pandoc/Readers/TWiki.hs−2 src/Text/Pandoc/Readers/Textile.hs−2 src/Text/Pandoc/Readers/TikiWiki.hs−2 src/Text/Pandoc/Readers/Txt2Tags.hs−2 src/Text/Pandoc/Readers/Vimwiki.hs−2 src/Text/Pandoc/RoffChar.hs−2 src/Text/Pandoc/SelfContained.hs−2 src/Text/Pandoc/Shared.hs−2 src/Text/Pandoc/Slides.hs−2 src/Text/Pandoc/Templates.hs−1 src/Text/Pandoc/Translations.hs−2 src/Text/Pandoc/UUID.hs−2 src/Text/Pandoc/Writers.hs−2 src/Text/Pandoc/Writers/AsciiDoc.hs−2 src/Text/Pandoc/Writers/CommonMark.hs−2 src/Text/Pandoc/Writers/ConTeXt.hs−2 src/Text/Pandoc/Writers/Custom.hs−2 src/Text/Pandoc/Writers/Docbook.hs−2 src/Text/Pandoc/Writers/Docx.hs−2 src/Text/Pandoc/Writers/Docx/StyleMap.hs−2 src/Text/Pandoc/Writers/DokuWiki.hs−2 src/Text/Pandoc/Writers/EPUB.hs−2 src/Text/Pandoc/Writers/FB2.hs−2 src/Text/Pandoc/Writers/HTML.hs−2 src/Text/Pandoc/Writers/Haddock.hs−2 src/Text/Pandoc/Writers/ICML.hs−2 src/Text/Pandoc/Writers/Ipynb.hs−2 src/Text/Pandoc/Writers/JATS.hs−2 src/Text/Pandoc/Writers/Jira.hs−2 src/Text/Pandoc/Writers/LaTeX.hs−2 src/Text/Pandoc/Writers/Man.hs−2 src/Text/Pandoc/Writers/Markdown.hs−2 src/Text/Pandoc/Writers/Math.hs−2 src/Text/Pandoc/Writers/MediaWiki.hs−2 src/Text/Pandoc/Writers/Ms.hs−2 src/Text/Pandoc/Writers/Muse.hs−2 src/Text/Pandoc/Writers/Native.hs−2 src/Text/Pandoc/Writers/ODT.hs−2 src/Text/Pandoc/Writers/OOXML.hs−2 src/Text/Pandoc/Writers/OPML.hs−2 src/Text/Pandoc/Writers/OpenDocument.hs−2 src/Text/Pandoc/Writers/Org.hs−2 src/Text/Pandoc/Writers/Powerpoint.hs−2 src/Text/Pandoc/Writers/Powerpoint/Output.hs−2 src/Text/Pandoc/Writers/Powerpoint/Presentation.hs−2 src/Text/Pandoc/Writers/RST.hs−2 src/Text/Pandoc/Writers/RTF.hs−2 src/Text/Pandoc/Writers/Roff.hs−2 src/Text/Pandoc/Writers/Shared.hs−2 src/Text/Pandoc/Writers/TEI.hs−2 src/Text/Pandoc/Writers/Texinfo.hs−2 src/Text/Pandoc/Writers/Textile.hs−2 src/Text/Pandoc/Writers/XWiki.hs−2 src/Text/Pandoc/Writers/ZimWiki.hs−2 src/Text/Pandoc/XML.hs−2
pandoc.cabal+31−41
@@ -377,7 +377,8 @@ flag trypandoc
377377 Default: False
378378
379379library
380− build-depends: base >= 4.9 && < 5,
380+ build-depends: base-noprelude >= 4.9 && < 5,
381+ base-compat >= 0.9,
381382 syb >= 0.1 && < 0.8,
382383 containers >= 0.4.2.1 && < 0.7,
383384 unordered-containers >= 0.2 && < 0.3,
@@ -440,10 +441,6 @@ library
440441 build-depends: basement >= 0.0.10,
441442 foundation >= 0.0.23
442443 -- basement 0.0.9 won't build on 32-bit windows.
443− if impl(ghc < 8.4)
444− hs-source-dirs: prelude
445− other-modules: Prelude
446− build-depends: base-compat >= 0.9
447444 if os(windows)
448445 cpp-options: -D_WINDOWS
449446 else
@@ -471,7 +468,8 @@ library
471468
472469 default-language: Haskell2010
473470 other-extensions: NoImplicitPrelude
474− hs-source-dirs: src
471+ hs-source-dirs: src,
472+ prelude
475473
476474 exposed-modules: Text.Pandoc,
477475 Text.Pandoc.App,
@@ -565,7 +563,8 @@ library
565563 Text.Pandoc.ImageSize,
566564 Text.Pandoc.BCP47,
567565 Text.Pandoc.Class
568− other-modules: Text.Pandoc.App.CommandLineOptions,
566+ other-modules: Prelude,
567+ Text.Pandoc.App.CommandLineOptions,
569568 Text.Pandoc.App.FormatHeuristics,
570569 Text.Pandoc.App.Opt,
571570 Text.Pandoc.App.OutputSettings,
@@ -640,19 +639,19 @@ library
640639 buildable: True
641640
642641executable pandoc
643− build-depends: pandoc, base >= 4.8 && < 5
644− if impl(ghc < 8.4)
645− hs-source-dirs: prelude
646− other-modules: Prelude
647− build-depends: base-compat >= 0.9
642+ build-depends: pandoc,
643+ base-noprelude >= 4.8 && < 5,
644+ base-compat >= 0.9
648645 if flag(static)
649646 ld-options: -static
650647 default-language: Haskell2010
651648 other-extensions: NoImplicitPrelude
652649 hs-source-dirs: .
650+ prelude
653651 main-is: pandoc.hs
654652 buildable: True
655− other-modules: Paths_pandoc
653+ other-modules: Paths_pandoc,
654+ Prelude
656655 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded
657656 -Wall -fno-warn-unused-do-bind
658657 -Wincomplete-record-updates
@@ -667,19 +666,16 @@ executable pandoc
667666
668667executable trypandoc
669668 main-is: trypandoc.hs
670− hs-source-dirs: trypandoc
669+ hs-source-dirs: trypandoc, prelude
671670 default-language: Haskell2010
672671 other-extensions: NoImplicitPrelude
672+ other-modules: Prelude
673673 if flag(trypandoc)
674− build-depends: base, aeson, pandoc,
674+ build-depends: base-noprelude, base-compat >= 0.9, aeson, pandoc,
675675 text, wai-extra, wai >= 0.3, http-types
676676 buildable: True
677677 else
678678 buildable: False
679− if impl(ghc < 8.4)
680− hs-source-dirs: prelude
681− other-modules: Prelude
682− build-depends: base-compat >= 0.9
683679 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded
684680 -Wall -fno-warn-unused-do-bind
685681 -Wincomplete-record-updates
@@ -695,18 +691,16 @@ executable trypandoc
695691benchmark weigh-pandoc
696692 type: exitcode-stdio-1.0
697693 main-is: weigh-pandoc.hs
698− hs-source-dirs: benchmark
694+ hs-source-dirs: benchmark,
695+ prelude
699696 build-depends: pandoc,
700− base >= 4.8 && < 5,
697+ base-noprelude >= 4.8 && < 5,
698+ base-compat >= 0.9,
701699 text,
702700 weigh >= 0.0 && < 0.1,
703701 mtl >= 2.2 && < 2.3
704− if impl(ghc < 8.4)
705− hs-source-dirs: prelude
706− other-modules: Prelude
707− build-depends: base-compat >= 0.9
708702 default-language: Haskell2010
709− other-extensions: NoImplicitPrelude
703+ other-modules: Prelude
710704 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded
711705 -Wall -fno-warn-unused-do-bind
712706 -Wincomplete-record-updates
@@ -723,8 +717,10 @@ benchmark weigh-pandoc
723717test-suite test-pandoc
724718 type: exitcode-stdio-1.0
725719 main-is: test-pandoc.hs
726− hs-source-dirs: test
727− build-depends: base >= 4.8 && < 5,
720+ hs-source-dirs: test,
721+ prelude
722+ build-depends: base-noprelude >= 4.8 && < 5,
723+ base-compat >= 0.9,
728724 pandoc,
729725 pandoc-types >= 1.20 && < 1.21,
730726 mtl >= 2.2 && < 2.3,
@@ -750,11 +746,8 @@ test-suite test-pandoc
750746 xml >= 1.3.12 && < 1.4,
751747 doctemplates >= 0.8 && < 0.9,
752748 Glob >= 0.7 && < 0.11
753− if impl(ghc < 8.4)
754− hs-source-dirs: prelude
755− other-modules: Prelude
756− build-depends: base-compat >= 0.9
757− other-modules: Tests.Old
749+ other-modules: Prelude
750+ Tests.Old
758751 Tests.Command
759752 Tests.Helpers
760753 Tests.Lua
@@ -809,7 +802,6 @@ test-suite test-pandoc
809802 if os(windows)
810803 cpp-options: -D_WINDOWS
811804 default-language: Haskell2010
812− other-extensions: NoImplicitPrelude
813805 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded
814806 -Wall -fno-warn-unused-do-bind
815807 -Wincomplete-record-updates
@@ -826,19 +818,17 @@ test-suite test-pandoc
826818benchmark benchmark-pandoc
827819 type: exitcode-stdio-1.0
828820 main-is: benchmark-pandoc.hs
829− hs-source-dirs: benchmark
821+ hs-source-dirs: benchmark,
822+ prelude
830823 build-depends: pandoc,
831824 time, bytestring, containers,
832− base >= 4.8 && < 5,
825+ base-noprelude >= 4.8 && < 5,
826+ base-compat >= 0.9,
833827 text >= 1.1.1.0 && < 1.3,
834828 mtl >= 2.2 && < 2.3,
835829 criterion >= 1.0 && < 1.6
836− if impl(ghc < 8.4)
837− hs-source-dirs: prelude
838− other-modules: Prelude
839− build-depends: base-compat >= 0.9
840830 default-language: Haskell2010
841− other-extensions: NoImplicitPrelude
831+ other-modules: Prelude
842832 ghc-options: -rtsopts -with-rtsopts=-K16m -threaded
843833 -Wall -fno-warn-unused-do-bind
844834 -Wincomplete-record-updates
prelude/Prelude.hs−2
@@ -1,6 +1,4 @@
11{-# LANGUAGE NoImplicitPrelude #-}
2−{-# LANGUAGE PackageImports #-}
3−{-# LANGUAGE CPP #-}
42
53-- The intent is that this Prelude provide the API of
64-- the base 4.11 Prelude in a way that is portable for
src/Text/Pandoc/App.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE CPP #-}
43{-# LANGUAGE ScopedTypeVariables #-}
@@ -23,7 +22,6 @@ module Text.Pandoc.App (
2322 , options
2423 , applyFilters
2524 ) where
26−import Prelude
2725import qualified Control.Exception as E
2826import Control.Monad
2927import Control.Monad.Trans
src/Text/Pandoc/App/CommandLineOptions.hs+2−4
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE CPP #-}
32{-# LANGUAGE ScopedTypeVariables #-}
43{-# LANGUAGE TupleSections #-}
@@ -22,7 +21,6 @@ module Text.Pandoc.App.CommandLineOptions (
2221 , lookupHighlightStyle
2322 , setVariable
2423 ) where
25−import Prelude
2624import Control.Monad
2725import Control.Monad.Trans
2826import Control.Monad.Except (throwError)
@@ -32,7 +30,7 @@ import Data.Bifunctor (second)
3230import Data.Char (toLower)
3331import Data.List (intercalate, sort)
3432#ifdef _WINDOWS
35−#if MIN_VERSION_base(4,12,0)
33+#if MIN_VERSION_base_noprelude(4,12,0)
3634import Data.List (isPrefixOf)
3735#endif
3836#endif
@@ -1030,7 +1028,7 @@ setVariable key val (Context ctx) = Context $ M.alter go key ctx
10301028-- beginning with \\ to \\?\UNC\. -- See #5127.
10311029normalizePath :: FilePath -> FilePath
10321030#ifdef _WINDOWS
1033−#if MIN_VERSION_base(4,12,0)
1031+#if MIN_VERSION_base_noprelude(4,12,0)
10341032normalizePath fp =
10351033 if "\\\\" `isPrefixOf` fp && not ("\\\\?\\" `isPrefixOf` fp)
10361034 then "\\\\?\\UNC\\" ++ drop 2 fp
src/Text/Pandoc/App/FormatHeuristics.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.App.FormatHeuristics
@@ -15,7 +14,6 @@ module Text.Pandoc.App.FormatHeuristics
1514 ( formatFromFilePaths
1615 ) where
1716
18−import Prelude
1917import Data.Char (toLower)
2018import Data.Text (Text)
2119import System.FilePath (takeExtension)
src/Text/Pandoc/App/Opt.hs−2
@@ -1,6 +1,5 @@
11{-# LANGUAGE ScopedTypeVariables #-}
22{-# LANGUAGE OverloadedStrings #-}
3−{-# LANGUAGE NoImplicitPrelude #-}
43{-# LANGUAGE CPP #-}
54{-# LANGUAGE DeriveGeneric #-}
65{-# LANGUAGE TemplateHaskell #-}
@@ -23,7 +22,6 @@ module Text.Pandoc.App.Opt (
2322 , defaultOpts
2423 , addMeta
2524 ) where
26−import Prelude
2725import Data.Char (isLower, toLower)
2826import GHC.Generics hiding (Meta)
2927import Text.Pandoc.Builder (setMeta)
src/Text/Pandoc/App/OutputSettings.hs−2
@@ -1,6 +1,5 @@
11{-# LANGUAGE CPP #-}
22{-# LANGUAGE FlexibleContexts #-}
3−{-# LANGUAGE NoImplicitPrelude #-}
43{-# LANGUAGE OverloadedStrings #-}
54{-# LANGUAGE ScopedTypeVariables #-}
65{-# LANGUAGE TupleSections #-}
@@ -19,7 +18,6 @@ module Text.Pandoc.App.OutputSettings
1918 ( OutputSettings (..)
2019 , optToOutputSettings
2120 ) where
22−import Prelude
2321import qualified Data.Map as M
2422import qualified Data.Text as T
2523import Text.DocTemplates (toVal, Context(..), Val(..))
src/Text/Pandoc/Asciify.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Asciify
43 Copyright : Copyright (C) 2013-2020 John MacFarlane
@@ -13,7 +12,6 @@ ascii equivalents (used in constructing HTML identifiers).
1312-}
1413module Text.Pandoc.Asciify (toAsciiChar)
1514where
16−import Prelude
1715import Data.Char (isAscii)
1816import qualified Data.Map as M
1917
src/Text/Pandoc/BCP47.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE OverloadedStrings #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{- |
43 Module : Text.Pandoc.BCP47
54 Copyright : Copyright (C) 2017–2020 John MacFarlane
@@ -18,7 +17,6 @@ module Text.Pandoc.BCP47 (
1817 , renderLang
1918 )
2019where
21−import Prelude
2220import Control.Monad (guard)
2321import Data.Char (isAlphaNum, isAscii, isLetter, isLower, isUpper)
2422import Text.Pandoc.Definition
src/Text/Pandoc/CSS.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32Module : Text.Pandoc.CSS
43Copyright : © 2006-2020 John MacFarlane <jgm@berkeley.edu>,
@@ -18,7 +17,6 @@ module Text.Pandoc.CSS ( foldOrElse
1817 )
1918where
2019
21−import Prelude
2220import qualified Data.Text as T
2321import Text.Pandoc.Shared (trim)
2422import Text.Parsec
src/Text/Pandoc/CSV.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.CSV
43 Copyright : Copyright (C) 2017–2020 John MacFarlane <jgm@berkeley.edu>
@@ -17,7 +16,6 @@ module Text.Pandoc.CSV (
1716 ParseError
1817) where
1918
20−import Prelude
2119import Control.Monad (unless, void)
2220import Data.Text (Text)
2321import qualified Data.Text as T
src/Text/Pandoc/Class.hs−1
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE CPP #-}
32{-# LANGUAGE PatternGuards #-}
43{-# LANGUAGE DeriveFunctor #-}
src/Text/Pandoc/Class/PandocMonad.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE CPP #-}
32{-# LANGUAGE FlexibleContexts #-}
43{-# LANGUAGE FlexibleInstances #-}
@@ -53,7 +52,6 @@ module Text.Pandoc.Class.PandocMonad
5352 , makeCanonical
5453 ) where
5554
56−import Prelude
5755import Codec.Archive.Zip
5856import Control.Monad.Except (MonadError (catchError, throwError),
5957 MonadTrans, lift, when)
src/Text/Pandoc/Data.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE TemplateHaskell #-}
32{- |
43Module : Text.Pandoc.Data
@@ -13,7 +12,6 @@ Provide contents data files as Haskell values.
1312-}
1413module Text.Pandoc.Data (dataFiles) where
1514
16−import Prelude
1715import qualified Data.ByteString as B
1816import Data.FileEmbed
1917import System.FilePath (splitDirectories)
src/Text/Pandoc/Emoji.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Emoji
@@ -12,7 +11,6 @@
1211Emoji symbol lookup from canonical string identifier.
1312-}
1413module Text.Pandoc.Emoji ( emojis, emojiToInline ) where
15−import Prelude
1614import qualified Text.Emoji as E
1715import Text.Pandoc.Definition (Inline (Span, Str))
1816import Data.Text (Text)
src/Text/Pandoc/Error.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE DeriveDataTypeable #-}
32{-# LANGUAGE DeriveGeneric #-}
43{-# LANGUAGE OverloadedStrings #-}
@@ -19,7 +18,6 @@ module Text.Pandoc.Error (
1918 PandocError(..),
2019 handleError) where
2120
22−import Prelude
2321import Control.Exception (Exception)
2422import Data.Typeable (Typeable)
2523import Data.Word (Word8)
src/Text/Pandoc/Extensions.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE CPP #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{-# LANGUAGE DeriveDataTypeable #-}
43{-# LANGUAGE DeriveGeneric #-}
54{-# LANGUAGE GeneralizedNewtypeDeriving #-}
@@ -33,7 +32,6 @@ module Text.Pandoc.Extensions ( Extension(..)
3332 , githubMarkdownExtensions
3433 , multimarkdownExtensions )
3534where
36−import Prelude
3735import Data.Bits (clearBit, setBit, testBit, (.|.))
3836import Data.Data (Data)
3937import qualified Data.Text as T
src/Text/Pandoc/Filter.hs−2
@@ -1,6 +1,5 @@
11{-# LANGUAGE CPP #-}
22{-# LANGUAGE DeriveGeneric #-}
3−{-# LANGUAGE NoImplicitPrelude #-}
43{-# LANGUAGE TemplateHaskell #-}
54{-# LANGUAGE OverloadedStrings #-}
65{- |
@@ -19,7 +18,6 @@ module Text.Pandoc.Filter
1918 , applyFilters
2019 ) where
2120
22−import Prelude
2321import System.CPUTime (getCPUTime)
2422import Data.Aeson.TH (deriveJSON, defaultOptions)
2523import GHC.Generics (Generic)
src/Text/Pandoc/Filter/JSON.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Filter
@@ -13,7 +12,6 @@ Programmatically modifications of pandoc documents via JSON filters.
1312-}
1413module Text.Pandoc.Filter.JSON (apply) where
1514
16−import Prelude
1715import Control.Monad (unless, when)
1816import Control.Monad.Trans (MonadIO (liftIO))
1917import Data.Aeson (eitherDecode', encode)
src/Text/Pandoc/Filter/Lua.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Filter.Lua
43 Copyright : Copyright (C) 2006-2020 John MacFarlane
@@ -12,7 +11,6 @@ Apply Lua filters to modify a pandoc documents programmatically.
1211-}
1312module Text.Pandoc.Filter.Lua (apply) where
1413
15−import Prelude
1614import Control.Exception (throw)
1715import Control.Monad ((>=>))
1816import qualified Data.Text as T
src/Text/Pandoc/Filter/Path.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Filter.Path
43 Copyright : Copyright (C) 2006-2020 John MacFarlane
@@ -14,7 +13,6 @@ module Text.Pandoc.Filter.Path
1413 ( expandFilterPath
1514 ) where
1615
17−import Prelude
1816import Text.Pandoc.Class (PandocMonad, fileExists, getUserDataDir)
1917import System.FilePath ((</>), isRelative)
2018
src/Text/Pandoc/Highlighting.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Highlighting
@@ -34,7 +33,6 @@ module Text.Pandoc.Highlighting ( highlightingStyles
3433 , fromListingsLanguage
3534 , toListingsLanguage
3635 ) where
37−import Prelude
3836import Control.Monad
3937import qualified Data.Map as M
4038import Data.Maybe (fromMaybe)
src/Text/Pandoc/Image.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings, ScopedTypeVariables, CPP #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -13,7 +12,6 @@ Portability : portable
1312Functions for converting images.
1413-}
1514module Text.Pandoc.Image ( svgToPng ) where
16−import Prelude
1715import Text.Pandoc.Options (WriterOptions(..))
1816import Text.Pandoc.Process (pipeProcess)
1917import qualified Data.ByteString.Lazy as L
src/Text/Pandoc/ImageSize.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings, ScopedTypeVariables, CPP #-}
32{-# LANGUAGE ViewPatterns #-}
43{-# OPTIONS_GHC -fno-warn-type-defaults #-}
@@ -33,7 +32,6 @@ module Text.Pandoc.ImageSize ( ImageType(..)
3332 , showInPixel
3433 , showFl
3534 ) where
36−import Prelude
3735import Data.ByteString (ByteString, unpack)
3836import qualified Data.ByteString.Char8 as B
3937import qualified Data.ByteString.Lazy as BL
src/Text/Pandoc/Logging.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE DeriveDataTypeable #-}
32{-# LANGUAGE DeriveGeneric #-}
43{-# LANGUAGE OverloadedStrings #-}
@@ -23,7 +22,6 @@ module Text.Pandoc.Logging (
2322 , messageVerbosity
2423 ) where
2524
26−import Prelude
2725import Control.Monad (mzero)
2826import Data.YAML (withStr, FromYAML(..))
2927import Data.Aeson
src/Text/Pandoc/Lua.hs−1
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Lua
43 Copyright : Copyright © 2017–2020 Albert Krewinkel
src/Text/Pandoc/Lua/Filter.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE FlexibleContexts #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{- |
43Module : Text.Pandoc.Lua.Filter
54Copyright : © 2012–2020 John MacFarlane,
@@ -17,7 +16,6 @@ module Text.Pandoc.Lua.Filter ( LuaFilterFunction
1716 , walkBlocks
1817 , module Text.Pandoc.Lua.Walk
1918 ) where
20−import Prelude
2119import Control.Applicative ((<|>))
2220import Control.Monad (mplus, (>=>))
2321import Control.Monad.Catch (finally)
src/Text/Pandoc/Lua/Global.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE DeriveDataTypeable #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{- |
43 Module : Text.Pandoc.Lua
54 Copyright : Copyright © 2017-2020 Albert Krewinkel
@@ -15,7 +14,6 @@ module Text.Pandoc.Lua.Global
1514 , setGlobals
1615 ) where
1716
18−import Prelude
1917import Data.Data (Data)
2018import Foreign.Lua (Lua, Peekable, Pushable)
2119import Foreign.Lua.Userdata ( ensureUserdataMetatable, pushAnyWithMetatable
src/Text/Pandoc/Lua/Init.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Lua
43 Copyright : Copyright © 2017-2020 Albert Krewinkel
@@ -16,7 +15,6 @@ module Text.Pandoc.Lua.Init
1615 , luaPackageParams
1716 ) where
1817
19−import Prelude
2018import Control.Monad.Trans (MonadIO (..))
2119import Data.Data (Data, dataTypeConstrs, dataTypeOf, showConstr)
2220import Foreign.Lua (Lua)
src/Text/Pandoc/Lua/Marshaling/AST.hs−2
@@ -1,5 +1,4 @@
11{-# OPTIONS_GHC -fno-warn-orphans #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{-# LANGUAGE LambdaCase #-}
43{- |
54 Module : Text.Pandoc.Lua.Marshaling.AST
@@ -17,7 +16,6 @@ module Text.Pandoc.Lua.Marshaling.AST
1716 , LuaListAttributes (..)
1817 ) where
1918
20−import Prelude
2119import Control.Applicative ((<|>))
2220import Foreign.Lua (Lua, Peekable, Pushable, StackIndex)
2321import Text.Pandoc.Definition
src/Text/Pandoc/Lua/Marshaling/AnyValue.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Lua.Marshaling.AnyValue
43 Copyright : © 2017-2020 Albert Krewinkel
@@ -15,7 +14,6 @@ into HsLua.
1514-}
1615module Text.Pandoc.Lua.Marshaling.AnyValue (AnyValue (..)) where
1716
18−import Prelude
1917import Foreign.Lua (Peekable (peek), StackIndex)
2018
2119-- | Dummy type to allow values of arbitrary Lua type. This just wraps
src/Text/Pandoc/Lua/Marshaling/CommonState.hs−2
@@ -1,6 +1,5 @@
11{-# OPTIONS_GHC -fno-warn-orphans #-}
22{-# LANGUAGE LambdaCase #-}
3−{-# LANGUAGE NoImplicitPrelude #-}
43{-# LANGUAGE OverloadedStrings #-}
54{- |
65 Module : Text.Pandoc.Lua.Marshaling.CommonState
@@ -14,7 +13,6 @@ Instances to marshal (push) and unmarshal (peek) the common state.
1413-}
1514module Text.Pandoc.Lua.Marshaling.CommonState () where
1615
17−import Prelude
1816import Foreign.Lua (Lua, Peekable, Pushable)
1917import Foreign.Lua.Types.Peekable (reportValueOnFailure)
2018import Foreign.Lua.Userdata (ensureUserdataMetatable, pushAnyWithMetatable,
src/Text/Pandoc/Lua/Marshaling/Context.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# OPTIONS_GHC -fno-warn-orphans #-}
32{- |
43 Module : Text.Pandoc.Lua.Marshaling.Context
@@ -13,7 +12,6 @@ Marshaling instance for doctemplates Context and its components.
1312-}
1413module Text.Pandoc.Lua.Marshaling.Context () where
1514
16−import Prelude
1715import qualified Foreign.Lua as Lua
1816import Foreign.Lua (Pushable)
1917import Text.DocTemplates (Context(..), Val(..), TemplateTarget)
src/Text/Pandoc/Lua/Marshaling/List.hs−2
@@ -1,7 +1,6 @@
11{-# LANGUAGE DeriveDataTypeable #-}
22{-# LANGUAGE FlexibleInstances #-}
33{-# LANGUAGE MultiParamTypeClasses #-}
4−{-# LANGUAGE NoImplicitPrelude #-}
54{-# LANGUAGE UndecidableInstances #-}
65{- |
76Module : Text.Pandoc.Lua.Marshaling.List
@@ -17,7 +16,6 @@ module Text.Pandoc.Lua.Marshaling.List
1716 ( List (..)
1817 ) where
1918
20−import Prelude
2119import Data.Data (Data)
2220import Foreign.Lua (Peekable, Pushable)
2321import Text.Pandoc.Walk (Walkable (..))
src/Text/Pandoc/Lua/Marshaling/MediaBag.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Lua.Marshaling.MediaBag
43 Copyright : © 2012-2020 John MacFarlane
@@ -11,7 +10,6 @@ Instances to marshal (push) and unmarshal (peek) media data.
1110-}
1211module Text.Pandoc.Lua.Marshaling.MediaBag (pushIterator) where
1312
14−import Prelude
1513import Foreign.Ptr (Ptr)
1614import Foreign.StablePtr (StablePtr, deRefStablePtr, newStablePtr)
1715import Foreign.Lua (Lua, NumResults, Peekable, Pushable, StackIndex)
src/Text/Pandoc/Lua/Marshaling/ReaderOptions.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE LambdaCase #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE ScopedTypeVariables #-}
54{-# OPTIONS_GHC -fno-warn-orphans #-}
@@ -16,7 +15,6 @@ Marshaling instance for ReaderOptions and its components.
1615-}
1716module Text.Pandoc.Lua.Marshaling.ReaderOptions () where
1817
19−import Prelude
2018import Data.Data (showConstr, toConstr)
2119import Foreign.Lua (Lua, Pushable)
2220import Text.Pandoc.Extensions (Extensions)
src/Text/Pandoc/Lua/Marshaling/Version.hs−2
@@ -1,6 +1,5 @@
11{-# OPTIONS_GHC -fno-warn-orphans #-}
22{-# LANGUAGE LambdaCase #-}
3−{-# LANGUAGE NoImplicitPrelude #-}
43{-# LANGUAGE OverloadedStrings #-}
54{-# LANGUAGE ScopedTypeVariables #-}
65{- |
@@ -20,7 +19,6 @@ module Text.Pandoc.Lua.Marshaling.Version
2019 )
2120 where
2221
23−import Prelude
2422import Data.Text (Text)
2523import Data.Maybe (fromMaybe)
2624import Data.Version (Version (..), makeVersion, parseVersion, showVersion)
src/Text/Pandoc/Lua/Module/MediaBag.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Lua.Module.MediaBag
@@ -14,7 +13,6 @@ module Text.Pandoc.Lua.Module.MediaBag
1413 ( pushModule
1514 ) where
1615
17−import Prelude
1816import Control.Monad (zipWithM_)
1917import Foreign.Lua (Lua, NumResults, Optional, liftIO)
2018import Text.Pandoc.Class (CommonState (..), fetchItem, putCommonState,
src/Text/Pandoc/Lua/Module/Pandoc.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE FlexibleContexts #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{-# LANGUAGE OverloadedStrings #-}
43{- |
54 Module : Text.Pandoc.Lua.Module.Pandoc
@@ -15,7 +14,6 @@ module Text.Pandoc.Lua.Module.Pandoc
1514 ( pushModule
1615 ) where
1716
18−import Prelude
1917import Control.Monad (when)
2018import Control.Monad.Except (throwError)
2119import Data.Default (Default (..))
src/Text/Pandoc/Lua/Module/System.hs−1
@@ -12,7 +12,6 @@ module Text.Pandoc.Lua.Module.System
1212 ( pushModule
1313 ) where
1414
15−import Prelude
1615import Foreign.Lua (Lua, NumResults)
1716import Foreign.Lua.Module.System (arch, env, getwd, os,
1817 with_env, with_tmpdir, with_wd)
src/Text/Pandoc/Lua/Module/Types.hs−1
@@ -12,7 +12,6 @@ module Text.Pandoc.Lua.Module.Types
1212 ( pushModule
1313 ) where
1414
15−import Prelude
1615import Data.Version (Version)
1716import Foreign.Lua (Lua, NumResults)
1817import Text.Pandoc.Definition
src/Text/Pandoc/Lua/Module/Utils.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Lua.Module.Utils
43 Copyright : Copyright © 2017-2020 Albert Krewinkel
@@ -13,7 +12,6 @@ module Text.Pandoc.Lua.Module.Utils
1312 ( pushModule
1413 ) where
1514
16−import Prelude
1715import Control.Applicative ((<|>))
1816import Data.Default (def)
1917import Data.Version (Version)
src/Text/Pandoc/Lua/Packages.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE FlexibleContexts #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{-# LANGUAGE ScopedTypeVariables #-}
43{- |
54 Module : Text.Pandoc.Lua.Packages
@@ -16,7 +15,6 @@ module Text.Pandoc.Lua.Packages
1615 , installPandocPackageSearcher
1716 ) where
1817
19−import Prelude
2018import Control.Monad (forM_)
2119import Data.ByteString (ByteString)
2220import Foreign.Lua (Lua, NumResults, liftIO)
src/Text/Pandoc/Lua/Util.hs−2
@@ -1,6 +1,5 @@
11{-# LANGUAGE FlexibleInstances #-}
22{-# LANGUAGE LambdaCase #-}
3−{-# LANGUAGE NoImplicitPrelude #-}
43{-# LANGUAGE OverloadedStrings #-}
54{- |
65 Module : Text.Pandoc.Lua.Util
@@ -27,7 +26,6 @@ module Text.Pandoc.Lua.Util
2726 , dofileWithTraceback
2827 ) where
2928
30−import Prelude
3129import Control.Monad (unless, when)
3230import Foreign.Lua ( Lua, NumArgs, NumResults, Peekable, Pushable, StackIndex
3331 , Status, ToHaskellFunction )
src/Text/Pandoc/Lua/Walk.hs−2
@@ -1,7 +1,6 @@
11{-# LANGUAGE DeriveTraversable #-}
22{-# LANGUAGE FlexibleContexts #-}
33{-# LANGUAGE FlexibleInstances #-}
4−{-# LANGUAGE NoImplicitPrelude #-}
54{-# LANGUAGE MultiParamTypeClasses #-}
65{- |
76Module : Text.Pandoc.Lua.Walk
@@ -18,7 +17,6 @@ module Text.Pandoc.Lua.Walk
1817 )
1918where
2019
21−import Prelude
2220import Control.Monad ((<=<))
2321import Text.Pandoc.Definition
2422import Text.Pandoc.Walk
src/Text/Pandoc/MIME.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.MIME
@@ -13,7 +12,6 @@ Mime type lookup.
1312-}
1413module Text.Pandoc.MIME ( MimeType, getMimeType, getMimeTypeDef,
1514 extensionFromMimeType, mediaCategory ) where
16−import Prelude
1715import Data.List (isPrefixOf, isSuffixOf)
1816import qualified Data.Map as M
1917import qualified Data.Text as T
src/Text/Pandoc/MediaBag.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE CPP #-}
32{-# LANGUAGE DeriveDataTypeable #-}
43{-# LANGUAGE GeneralizedNewtypeDeriving #-}
@@ -22,7 +21,6 @@ module Text.Pandoc.MediaBag (
2221 mediaDirectory,
2322 mediaItems
2423 ) where
25−import Prelude
2624import qualified Data.ByteString.Lazy as BL
2725import Data.Data (Data)
2826import qualified Data.Map as M
src/Text/Pandoc/Options.hs−2
@@ -1,7 +1,6 @@
11{-# LANGUAGE CPP #-}
22{-# LANGUAGE DeriveDataTypeable #-}
33{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE NoImplicitPrelude #-}
54{-# LANGUAGE TemplateHaskell #-}
65{-# LANGUAGE OverloadedStrings #-}
76{- |
@@ -33,7 +32,6 @@ module Text.Pandoc.Options ( module Text.Pandoc.Extensions
3332 , defaultMathJaxURL
3433 , defaultKaTeXURL
3534 ) where
36−import Prelude
3735import Control.Applicative ((<|>))
3836import Data.Char (toLower)
3937import Data.Maybe (fromMaybe)
src/Text/Pandoc/PDF.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE CPP #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE ScopedTypeVariables #-}
@@ -15,7 +14,6 @@ Conversion of LaTeX documents to PDF.
1514-}
1615module Text.Pandoc.PDF ( makePDF ) where
1716
18−import Prelude
1917import qualified Codec.Picture as JP
2018import qualified Control.Exception as E
2119import Control.Monad (when)
src/Text/Pandoc/Parsing.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE CPP #-}
32{-# LANGUAGE ExplicitForAll #-}
43{-# LANGUAGE FlexibleContexts #-}
@@ -186,7 +185,6 @@ module Text.Pandoc.Parsing ( take1WhileP,
186185 )
187186where
188187
189−import Prelude
190188import Control.Monad.Identity
191189import Control.Monad.Reader
192190import Data.Char (chr, isAlphaNum, isAscii, isAsciiUpper,
src/Text/Pandoc/Process.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Process
43 Copyright : Copyright (C) 2013-2020 John MacFarlane
@@ -12,7 +11,6 @@ ByteString variant of 'readProcessWithExitCode'.
1211-}
1312module Text.Pandoc.Process (pipeProcess)
1413where
15−import Prelude
1614import Control.Concurrent (MVar, forkIO, killThread, newEmptyMVar, putMVar,
1715 takeMVar)
1816import Control.Exception (SomeException (..))
src/Text/Pandoc/Readers.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE MonoLocalBinds #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{-# LANGUAGE ScopedTypeVariables #-}
43{-# LANGUAGE OverloadedStrings #-}
54{- |
@@ -57,7 +56,6 @@ module Text.Pandoc.Readers
5756 , getDefaultExtensions
5857 ) where
5958
60−import Prelude
6159import Control.Monad (unless)
6260import Control.Monad.Except (throwError)
6361import Data.Aeson
src/Text/Pandoc/Readers/CSV.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleContexts #-}
32
43{-# LANGUAGE ScopedTypeVariables #-}
@@ -14,7 +13,6 @@
1413Conversion from CSV to a 'Pandoc' table.
1514-}
1615module Text.Pandoc.Readers.CSV ( readCSV ) where
17−import Prelude
1816import Data.Text (Text)
1917import qualified Data.Text as T
2018import Text.Pandoc.CSV (parseCSV, defaultCSVOptions)
src/Text/Pandoc/Readers/CommonMark.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -17,7 +16,6 @@ CommonMark is a strongly specified variant of Markdown: http://commonmark.org.
1716module Text.Pandoc.Readers.CommonMark (readCommonMark)
1817where
1918
20−import Prelude
2119import CMarkGFM
2220import Control.Monad.State
2321import qualified Data.Set as Set
src/Text/Pandoc/Readers/Creole.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.Creole
@@ -14,7 +13,6 @@ Conversion of creole text to 'Pandoc' document.
1413module Text.Pandoc.Readers.Creole ( readCreole
1514 ) where
1615
17−import Prelude
1816import Control.Monad.Except (guard, liftM2, throwError)
1917import qualified Data.Foldable as F
2018import Data.Maybe (fromMaybe)
src/Text/Pandoc/Readers/DocBook.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.DocBook
@@ -12,7 +11,6 @@
1211Conversion of DocBook XML to 'Pandoc' document.
1312-}
1413module Text.Pandoc.Readers.DocBook ( readDocBook ) where
15−import Prelude
1614import Control.Monad.State.Strict
1715import Data.Char (isSpace, toUpper)
1816import Data.Default
src/Text/Pandoc/Readers/Docx.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE CPP #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE PatternGuards #-}
@@ -60,7 +59,6 @@ module Text.Pandoc.Readers.Docx
6059 ( readDocx
6160 ) where
6261
63−import Prelude
6462import Codec.Archive.Zip
6563import Control.Monad.Reader
6664import Control.Monad.State.Strict
src/Text/Pandoc/Readers/Docx/Combine.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleInstances #-}
32{-# LANGUAGE PatternGuards #-}
43{-# LANGUAGE OverloadedStrings #-}
@@ -59,7 +58,6 @@ module Text.Pandoc.Readers.Docx.Combine ( smushInlines
5958 )
6059 where
6160
62−import Prelude
6361import Data.List
6462import Data.Sequence (ViewL (..), ViewR (..), viewl, viewr, (><), (|>))
6563import qualified Data.Sequence as Seq (null)
src/Text/Pandoc/Readers/Docx/Fields.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.Docx.Fields
@@ -16,7 +15,6 @@ module Text.Pandoc.Readers.Docx.Fields ( FieldInfo(..)
1615 , parseFieldInfo
1716 ) where
1817
19−import Prelude
2018import Data.Functor (($>), void)
2119import qualified Data.Text as T
2220import Text.Parsec
src/Text/Pandoc/Readers/Docx/Lists.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.Docx.Lists
@@ -18,7 +17,6 @@ module Text.Pandoc.Readers.Docx.Lists ( blocksToBullets
1817 , listParagraphStyles
1918 ) where
2019
21−import Prelude
2220import Data.List
2321import Data.Maybe
2422import Data.String (fromString)
src/Text/Pandoc/Readers/Docx/Parse.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE ViewPatterns #-}
32{-# LANGUAGE OverloadedStrings #-}
43{- |
@@ -52,7 +51,6 @@ module Text.Pandoc.Readers.Docx.Parse ( Docx(..)
5251 , constructBogusParStyleData
5352 , leftBiasedMergeRunStyle
5453 ) where
55−import Prelude
5654import Text.Pandoc.Readers.Docx.Parse.Styles
5755import Codec.Archive.Zip
5856import Control.Applicative ((<|>))
src/Text/Pandoc/Readers/Docx/Parse/Styles.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleInstances #-}
32{-# LANGUAGE FlexibleContexts #-}
43{-# LANGUAGE TypeFamilies #-}
@@ -43,7 +42,6 @@ module Text.Pandoc.Readers.Docx.Parse.Styles (
4342 , defaultRunStyle
4443 , checkOnOff
4544 ) where
46−import Prelude
4745import Codec.Archive.Zip
4846import Control.Applicative ((<|>))
4947import Control.Monad.Except
src/Text/Pandoc/Readers/Docx/Util.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Readers.Docx.StyleMaps
43 Copyright : © 2014-2020 Jesse Rosenthal <jrosenthal@jhu.edu>,
@@ -24,7 +23,6 @@ module Text.Pandoc.Readers.Docx.Util (
2423 , findAttrTextByName
2524 ) where
2625
27−import Prelude
2826import Data.Maybe (mapMaybe)
2927import qualified Data.Text as T
3028import Text.XML.Light
src/Text/Pandoc/Readers/DokuWiki.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE FlexibleContexts #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE TupleSections #-}
54{-# LANGUAGE ViewPatterns #-}
@@ -16,7 +15,6 @@ Conversion of DokuWiki text to 'Pandoc' document.
1615-}
1716module Text.Pandoc.Readers.DokuWiki (readDokuWiki) where
1817
19−import Prelude
2018import Control.Monad
2119import Control.Monad.Except (throwError)
2220import Data.Char (isAlphaNum, isDigit)
src/Text/Pandoc/Readers/EPUB.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE TupleSections #-}
32{-# LANGUAGE ViewPatterns #-}
43{-# LANGUAGE OverloadedStrings #-}
@@ -18,7 +17,6 @@ module Text.Pandoc.Readers.EPUB
1817 (readEPUB)
1918 where
2019
21−import Prelude
2220import Codec.Archive.Zip (Archive (..), Entry, findEntryByPath, fromEntry,
2321 toArchiveOrFail)
2422import Control.DeepSeq (NFData, deepseq)
src/Text/Pandoc/Readers/FB2.hs−1
@@ -23,7 +23,6 @@ TODO:
2323-}
2424
2525module Text.Pandoc.Readers.FB2 ( readFB2 ) where
26−import Prelude
2726import Control.Monad.Except (throwError)
2827import Control.Monad.State.Strict
2928import Data.ByteString.Lazy.Char8 ( pack )
src/Text/Pandoc/Readers/HTML.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE LambdaCase #-}
32{-# LANGUAGE FlexibleContexts #-}
43{-# LANGUAGE FlexibleInstances #-}
@@ -26,7 +25,6 @@ module Text.Pandoc.Readers.HTML ( readHtml
2625 , isCommentTag
2726 ) where
2827
29−import Prelude
3028import Control.Applicative ((<|>))
3129import Control.Arrow (first)
3230import Control.Monad (guard, mplus, msum, mzero, unless, void)
src/Text/Pandoc/Readers/Haddock.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE CPP #-}
32{-# LANGUAGE OverloadedStrings #-}
43{- |
@@ -16,7 +15,6 @@ module Text.Pandoc.Readers.Haddock
1615 ( readHaddock
1716 ) where
1817
19−import Prelude
2018import Control.Monad.Except (throwError)
2119import Data.List (intersperse)
2220import Data.Maybe (fromMaybe)
src/Text/Pandoc/Readers/Ipynb.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE LambdaCase #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE FlexibleContexts #-}
@@ -16,7 +15,6 @@ Ipynb (Jupyter notebook JSON format) reader for pandoc.
1615-}
1716module Text.Pandoc.Readers.Ipynb ( readIpynb )
1817where
19−import Prelude
2018import Data.Char (isDigit)
2119import Data.Maybe (fromMaybe)
2220import Data.Digest.Pure.SHA (sha1, showDigest)
src/Text/Pandoc/Readers/JATS.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE TupleSections #-}
32{-# LANGUAGE OverloadedStrings #-}
43{- |
@@ -14,7 +13,6 @@ Conversion of JATS XML to 'Pandoc' document.
1413-}
1514
1615module Text.Pandoc.Readers.JATS ( readJATS ) where
17−import Prelude
1816import Control.Monad.State.Strict
1917import Data.Char (isDigit, isSpace, toUpper)
2018import Data.Default
src/Text/Pandoc/Readers/Jira.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE LambdaCase #-}
32{-# LANGUAGE OverloadedStrings #-}
43{- |
@@ -12,7 +11,6 @@ Conversion of jira wiki formatted plain text to 'Pandoc' document.
1211-}
1312module Text.Pandoc.Readers.Jira ( readJira ) where
1413
15−import Prelude
1614import Control.Monad.Except (throwError)
1715import Data.Text (Text, append, pack, singleton, unpack)
1816import Text.HTML.TagSoup.Entity (lookupEntity)
src/Text/Pandoc/Readers/LaTeX.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE CPP #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{-# LANGUAGE FlexibleInstances #-}
43{-# LANGUAGE MultiParamTypeClasses #-}
54{-# LANGUAGE OverloadedStrings #-}
@@ -27,7 +26,6 @@ module Text.Pandoc.Readers.LaTeX ( readLaTeX,
2726 untokenize
2827 ) where
2928
30−import Prelude
3129import Control.Applicative (many, optional, (<|>))
3230import Control.Monad
3331import Control.Monad.Except (throwError)
src/Text/Pandoc/Readers/LaTeX/Lang.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.LaTeX.Lang
@@ -17,7 +16,6 @@ module Text.Pandoc.Readers.LaTeX.Lang
1716 , babelLangToBCP47
1817 )
1918where
20−import Prelude
2119import qualified Data.Map as M
2220import qualified Data.Text as T
2321import Text.Pandoc.BCP47 (Lang(..))
src/Text/Pandoc/Readers/LaTeX/Parsing.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleInstances #-}
32{-# LANGUAGE MultiParamTypeClasses #-}
43{-# LANGUAGE OverloadedStrings #-}
@@ -69,7 +68,6 @@ module Text.Pandoc.Readers.LaTeX.Parsing
6968 , withRaw
7069 ) where
7170
72−import Prelude
7371import Control.Applicative (many, (<|>))
7472import Control.Monad
7573import Control.Monad.Except (throwError)
src/Text/Pandoc/Readers/LaTeX/Types.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Readers.LaTeX.Types
43 Copyright : Copyright (C) 2017-2020 John MacFarlane
@@ -18,7 +17,6 @@ module Text.Pandoc.Readers.LaTeX.Types ( Tok(..)
1817 , SourcePos
1918 )
2019where
21−import Prelude
2220import Data.Text (Text)
2321import Text.Parsec.Pos (SourcePos)
2422
src/Text/Pandoc/Readers/Man.hs−1
@@ -14,7 +14,6 @@ Conversion of man to 'Pandoc' document.
1414-}
1515module Text.Pandoc.Readers.Man (readMan) where
1616
17−import Prelude
1817import Data.Char (toLower)
1918import Data.Default (Default)
2019import Control.Monad (liftM, mzero, guard, void)
src/Text/Pandoc/Readers/Markdown.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE RelaxedPolyRec #-}
32{-# LANGUAGE ScopedTypeVariables #-}
43{-# LANGUAGE TupleSections #-}
@@ -17,7 +16,6 @@ Conversion of markdown-formatted plain text to 'Pandoc' document.
1716-}
1817module Text.Pandoc.Readers.Markdown ( readMarkdown, yamlToMeta ) where
1918
20−import Prelude
2119import Control.Monad
2220import Control.Monad.Except (throwError)
2321import Data.Char (isAlphaNum, isPunctuation, isSpace)
src/Text/Pandoc/Readers/MediaWiki.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE RelaxedPolyRec #-}
43-- RelaxedPolyRec needed for inlinesBetween on GHC < 7
@@ -20,7 +19,6 @@ _ parse templates?
2019-}
2120module Text.Pandoc.Readers.MediaWiki ( readMediaWiki ) where
2221
23−import Prelude
2422import Control.Monad
2523import Control.Monad.Except (throwError)
2624import Data.Char (isDigit, isSpace)
src/Text/Pandoc/Readers/Metadata.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE RelaxedPolyRec #-}
32{-# LANGUAGE ScopedTypeVariables #-}
43{-# LANGUAGE OverloadedStrings #-}
@@ -15,7 +14,6 @@ Parse YAML/JSON metadata to 'Pandoc' 'Meta'.
1514-}
1615module Text.Pandoc.Readers.Metadata ( yamlBsToMeta ) where
1716
18−import Prelude
1917import Control.Monad
2018import Control.Monad.Except (throwError)
2119import qualified Data.ByteString.Lazy as BL
src/Text/Pandoc/Readers/Muse.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleContexts #-}
32{-# LANGUAGE TupleSections #-}
43{-# LANGUAGE OverloadedStrings #-}
@@ -19,7 +18,6 @@ TODO:
1918-}
2019module Text.Pandoc.Readers.Muse (readMuse) where
2120
22−import Prelude
2321import Control.Monad
2422import Control.Monad.Reader
2523import Control.Monad.Except (throwError)
src/Text/Pandoc/Readers/Native.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.Native
@@ -14,7 +13,6 @@ Conversion of a string representation of a pandoc type (@Pandoc@,
1413-}
1514module Text.Pandoc.Readers.Native ( readNative ) where
1615
17−import Prelude
1816import Text.Pandoc.Definition
1917import Text.Pandoc.Options (ReaderOptions)
2018import Text.Pandoc.Shared (safeRead)
src/Text/Pandoc/Readers/OPML.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.OPML
@@ -13,7 +12,6 @@ Conversion of OPML to 'Pandoc' document.
1312-}
1413
1514module Text.Pandoc.Readers.OPML ( readOPML ) where
16−import Prelude
1715import Control.Monad.State.Strict
1816import Data.Char (toUpper)
1917import Data.Default
src/Text/Pandoc/Readers/Odt.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE PatternGuards #-}
32{-# LANGUAGE OverloadedStrings #-}
43{- |
@@ -15,7 +14,6 @@ Entry point to the odt reader.
1514
1615module Text.Pandoc.Readers.Odt ( readOdt ) where
1716
18−import Prelude
1917import Codec.Archive.Zip
2018import qualified Text.XML.Light as XML
2119
src/Text/Pandoc/Readers/Odt/Arrows/State.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleInstances #-}
32{-# LANGUAGE TupleSections #-}
43{- |
@@ -20,7 +19,6 @@ faster and easier to implement this way.
2019
2120module Text.Pandoc.Readers.Odt.Arrows.State where
2221
23−import Prelude
2422import Control.Arrow
2523import qualified Control.Category as Cat
2624import Control.Monad
src/Text/Pandoc/Readers/Odt/Arrows/Utils.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Readers.Odt.Arrows.Utils
43 Copyright : Copyright (C) 2015 Martin Linnemann
@@ -22,7 +21,6 @@ with an equivalent return value.
2221-- We export everything
2322module Text.Pandoc.Readers.Odt.Arrows.Utils where
2423
25−import Prelude
2624import Control.Arrow
2725import Control.Monad (join)
2826
src/Text/Pandoc/Readers/Odt/ContentReader.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE Arrows #-}
32{-# LANGUAGE DeriveFoldable #-}
43{-# LANGUAGE GeneralizedNewtypeDeriving #-}
@@ -24,7 +23,6 @@ module Text.Pandoc.Readers.Odt.ContentReader
2423, read_body
2524) where
2625
27−import Prelude
2826import Control.Applicative hiding (liftA, liftA2, liftA3)
2927import Control.Arrow
3028
src/Text/Pandoc/Readers/Odt/Generic/Fallible.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Readers.Odt.Generic.Fallible
43 Copyright : Copyright (C) 2015 Martin Linnemann
@@ -19,7 +18,6 @@ compatible instances of "ArrowChoice".
1918
2019-- We export everything
2120module Text.Pandoc.Readers.Odt.Generic.Fallible where
22−import Prelude
2321
2422-- | Default for now. Will probably become a class at some point.
2523type Failure = ()
src/Text/Pandoc/Readers/Odt/Generic/Namespaces.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Readers.Odt.Generic.Namespaces
43 Copyright : Copyright (C) 2015 Martin Linnemann
@@ -14,7 +13,6 @@ typesafe Haskell namespace identifiers and unsafe "real world" namespaces.
1413
1514module Text.Pandoc.Readers.Odt.Generic.Namespaces where
1615
17−import Prelude
1816import qualified Data.Map as M
1917
2018--
src/Text/Pandoc/Readers/Odt/Generic/SetMap.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Readers.Odt.Generic.SetMap
43 Copyright : Copyright (C) 2015 Martin Linnemann
@@ -13,7 +12,6 @@ A map of values to sets of values.
1312
1413module Text.Pandoc.Readers.Odt.Generic.SetMap where
1514
16−import Prelude
1715import qualified Data.Map as M
1816import qualified Data.Set as S
1917
src/Text/Pandoc/Readers/Odt/Generic/Utils.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE TypeOperators #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -30,7 +29,6 @@ module Text.Pandoc.Readers.Odt.Generic.Utils
3029, composition
3130) where
3231
33−import Prelude
3432import Control.Category (Category, (<<<), (>>>))
3533import qualified Control.Category as Cat (id)
3634import Control.Monad (msum)
src/Text/Pandoc/Readers/Odt/Generic/XMLConverter.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE TupleSections #-}
32{-# LANGUAGE GADTs #-}
43{-# LANGUAGE PatternGuards #-}
@@ -53,7 +52,6 @@ module Text.Pandoc.Readers.Odt.Generic.XMLConverter
5352, matchContent
5453) where
5554
56−import Prelude
5755import Control.Applicative hiding ( liftA, liftA2 )
5856import Control.Monad ( MonadPlus )
5957import Control.Arrow
src/Text/Pandoc/Readers/Odt/Namespaces.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Reader.Odt.Namespaces
43 Copyright : Copyright (C) 2015 Martin Linnemann
@@ -14,7 +13,6 @@ Namespaces used in odt files.
1413module Text.Pandoc.Readers.Odt.Namespaces ( Namespace (..)
1514 ) where
1615
17−import Prelude
1816import Data.List (isPrefixOf)
1917import qualified Data.Map as M (empty, insert)
2018import Data.Maybe (fromMaybe, listToMaybe)
src/Text/Pandoc/Readers/Odt/StyleReader.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE CPP #-}
32{-# LANGUAGE Arrows #-}
43{-# LANGUAGE RecordWildCards #-}
@@ -39,7 +38,6 @@ module Text.Pandoc.Readers.Odt.StyleReader
3938, readStylesAt
4039) where
4140
42−import Prelude
4341import Control.Applicative hiding (liftA, liftA2, liftA3)
4442import Control.Arrow
4543
src/Text/Pandoc/Readers/Org.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.Org
@@ -11,7 +10,6 @@ Conversion of org-mode formatted plain text to 'Pandoc' document.
1110-}
1211module Text.Pandoc.Readers.Org ( readOrg ) where
1312
14−import Prelude
1513import Text.Pandoc.Readers.Org.Blocks (blockList, meta)
1614import Text.Pandoc.Readers.Org.ParserState (optionsToParserState)
1715import Text.Pandoc.Readers.Org.Parsing (OrgParser, readWithM)
src/Text/Pandoc/Readers/Org/BlockStarts.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.Org.BlockStarts
@@ -24,7 +23,6 @@ module Text.Pandoc.Readers.Org.BlockStarts
2423 , endOfBlock
2524 ) where
2625
27−import Prelude
2826import Control.Monad (void)
2927import Data.Text (Text)
3028import qualified Data.Text as T
src/Text/Pandoc/Readers/Org/Blocks.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleContexts #-}
32{-# LANGUAGE RecordWildCards #-}
43{-# LANGUAGE OverloadedStrings #-}
@@ -16,7 +15,6 @@ module Text.Pandoc.Readers.Org.Blocks
1615 , meta
1716 ) where
1817
19−import Prelude
2018import Text.Pandoc.Readers.Org.BlockStarts
2119import Text.Pandoc.Readers.Org.DocumentTree (documentTree,
2220 unprunedHeadlineToBlocks)
src/Text/Pandoc/Readers/Org/DocumentTree.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE FlexibleContexts #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE TupleSections #-}
54{- |
@@ -16,7 +15,6 @@ module Text.Pandoc.Readers.Org.DocumentTree
1615 , unprunedHeadlineToBlocks
1716 ) where
1817
19−import Prelude
2018import Control.Arrow ((***), first)
2119import Control.Monad (guard)
2220import Data.List (intersperse)
src/Text/Pandoc/Readers/Org/ExportSettings.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.Org.ExportSettings
@@ -13,7 +12,6 @@ module Text.Pandoc.Readers.Org.ExportSettings
1312 ( exportSettings
1413 ) where
1514
16−import Prelude
1715import Text.Pandoc.Class (PandocMonad, report)
1816import Text.Pandoc.Logging (LogMessage (UnknownOrgExportOption))
1917import Text.Pandoc.Readers.Org.ParserState
src/Text/Pandoc/Readers/Org/Inlines.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.Org.Inlines
@@ -16,7 +15,6 @@ module Text.Pandoc.Readers.Org.Inlines
1615 , linkTarget
1716 ) where
1817
19−import Prelude
2018import Text.Pandoc.Readers.Org.BlockStarts (endOfBlock, noteMarker)
2119import Text.Pandoc.Readers.Org.ParserState
2220import Text.Pandoc.Readers.Org.Parsing
src/Text/Pandoc/Readers/Org/Meta.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleContexts #-}
32{-# LANGUAGE TupleSections #-}
43{-# LANGUAGE OverloadedStrings #-}
@@ -17,7 +16,6 @@ module Text.Pandoc.Readers.Org.Meta
1716 , metaLine
1817 ) where
1918
20−import Prelude
2119import Text.Pandoc.Readers.Org.BlockStarts
2220import Text.Pandoc.Readers.Org.ExportSettings (exportSettings)
2321import Text.Pandoc.Readers.Org.Inlines
src/Text/Pandoc/Readers/Org/ParserState.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleInstances #-}
32{-# LANGUAGE MultiParamTypeClasses #-}
43{-# LANGUAGE OverloadedStrings #-}
@@ -39,7 +38,6 @@ module Text.Pandoc.Readers.Org.ParserState
3938 , optionsToParserState
4039 ) where
4140
42−import Prelude
4341import Control.Monad.Reader (ReaderT, asks, local)
4442
4543import Data.Default (Default (..))
src/Text/Pandoc/Readers/Org/Parsing.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Readers.Org.Parsing
43 Copyright : Copyright (C) 2014-2020 Albert Krewinkel
@@ -104,7 +103,6 @@ module Text.Pandoc.Readers.Org.Parsing
104103 , getPosition
105104 ) where
106105
107−import Prelude
108106import Data.Text (Text)
109107import Text.Pandoc.Readers.Org.ParserState
110108
src/Text/Pandoc/Readers/Org/Shared.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.Org.Shared
@@ -17,7 +16,6 @@ module Text.Pandoc.Readers.Org.Shared
1716 , exportsCode
1817 ) where
1918
20−import Prelude
2119import Data.Char (isAlphaNum)
2220import Data.Text (Text)
2321import qualified Data.Text as T
src/Text/Pandoc/Readers/RST.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleContexts #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE ScopedTypeVariables #-}
@@ -15,7 +14,6 @@
1514Conversion from reStructuredText to 'Pandoc' document.
1615-}
1716module Text.Pandoc.Readers.RST ( readRST ) where
18−import Prelude
1917import Control.Arrow (second)
2018import Control.Monad (forM_, guard, liftM, mplus, mzero, when)
2119import Control.Monad.Except (throwError)
src/Text/Pandoc/Readers/Roff.hs−1
@@ -28,7 +28,6 @@ module Text.Pandoc.Readers.Roff
2828 )
2929where
3030
31−import Prelude
3231import Safe (lastDef)
3332import Control.Monad (void, mzero, mplus, guard)
3433import Control.Monad.Except (throwError)
src/Text/Pandoc/Readers/TWiki.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleContexts #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE RelaxedPolyRec #-}
@@ -17,7 +16,6 @@ Conversion of twiki text to 'Pandoc' document.
1716module Text.Pandoc.Readers.TWiki ( readTWiki
1817 ) where
1918
20−import Prelude
2119import Control.Monad
2220import Control.Monad.Except (throwError)
2321import Data.Char (isAlphaNum)
src/Text/Pandoc/Readers/Textile.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -36,7 +35,6 @@ TODO : refactor common patterns across readers :
3635
3736
3837module Text.Pandoc.Readers.Textile ( readTextile) where
39−import Prelude
4038import Control.Monad (guard, liftM)
4139import Control.Monad.Except (throwError)
4240import Data.Char (digitToInt, isUpper)
src/Text/Pandoc/Readers/TikiWiki.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleContexts #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE RelaxedPolyRec #-}
@@ -18,7 +17,6 @@ Conversion of TikiWiki text to 'Pandoc' document.
1817module Text.Pandoc.Readers.TikiWiki ( readTikiWiki
1918 ) where
2019
21−import Prelude
2220import Control.Monad
2321import Control.Monad.Except (throwError)
2422import qualified Data.Foldable as F
src/Text/Pandoc/Readers/Txt2Tags.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Readers.Txt2Tags
@@ -15,7 +14,6 @@ module Text.Pandoc.Readers.Txt2Tags ( readTxt2Tags
1514 )
1615 where
1716
18−import Prelude
1917import Control.Monad (guard, void, when)
2018import Control.Monad.Except (catchError, throwError)
2119import Control.Monad.Reader (Reader, asks, runReader)
src/Text/Pandoc/Readers/Vimwiki.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE CPP #-}
43{- |
@@ -48,7 +47,6 @@ Conversion of vimwiki text to 'Pandoc' document.
4847
4948module Text.Pandoc.Readers.Vimwiki ( readVimwiki
5049 ) where
51−import Prelude
5250import Control.Monad (guard)
5351import Control.Monad.Except (throwError)
5452import Data.Default
src/Text/Pandoc/RoffChar.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.RoffChar
@@ -17,7 +16,6 @@ module Text.Pandoc.RoffChar (
1716 , characterCodes
1817 , combiningAccents
1918 ) where
20−import Prelude
2119import qualified Data.Text as T
2220
2321-- | These are the escapes specifically mentioned in groff_man(7),
src/Text/Pandoc/SelfContained.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE TupleSections #-}
43{- |
@@ -15,7 +14,6 @@ offline, by incorporating linked images, CSS, and scripts into
1514the HTML using data URIs.
1615-}
1716module Text.Pandoc.SelfContained ( makeDataURI, makeSelfContained ) where
18−import Prelude
1917import Codec.Compression.GZip as Gzip
2018import Control.Applicative ((<|>))
2119import Control.Monad.Except (throwError)
src/Text/Pandoc/Shared.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE CPP #-}
32{-# LANGUAGE FlexibleContexts #-}
43{-# LANGUAGE MultiParamTypeClasses #-}
@@ -104,7 +103,6 @@ module Text.Pandoc.Shared (
104103 pandocVersion
105104 ) where
106105
107−import Prelude
108106import Codec.Archive.Zip
109107import qualified Control.Exception as E
110108import Control.Monad (MonadPlus (..), msum, unless)
src/Text/Pandoc/Slides.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Slides
@@ -13,7 +12,6 @@ Utility functions for splitting documents into slides for slide
1312show formats (dzslides, revealjs, s5, slidy, slideous, beamer).
1413-}
1514module Text.Pandoc.Slides ( getSlideLevel, prepSlides ) where
16−import Prelude
1715import Text.Pandoc.Definition
1816
1917-- | Find level of header that starts slides (defined as the least header
src/Text/Pandoc/Templates.hs−1
@@ -24,7 +24,6 @@ module Text.Pandoc.Templates ( Template
2424 , compileDefaultTemplate
2525 ) where
2626
27−import Prelude
2827import System.FilePath ((<.>), (</>), takeFileName)
2928import Text.DocTemplates (Template, TemplateMonad(..), compileTemplate, renderTemplate)
3029import Text.Pandoc.Class (PandocMonad, readDataFile, fetchItem,
src/Text/Pandoc/Translations.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE CPP #-}
32{-# LANGUAGE DeriveGeneric #-}
43{-# LANGUAGE GeneralizedNewtypeDeriving #-}
@@ -30,7 +29,6 @@ module Text.Pandoc.Translations (
3029 , readTranslations
3130 )
3231where
33−import Prelude
3432import Data.Aeson.Types (Value(..), FromJSON(..))
3533import qualified Data.Aeson.Types as Aeson
3634import qualified Data.HashMap.Strict as HM
src/Text/Pandoc/UUID.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.UUID
43 Copyright : Copyright (C) 2010-2020 John MacFarlane
@@ -14,7 +13,6 @@ in RFC4122. See http://tools.ietf.org/html/rfc4122
1413
1514module Text.Pandoc.UUID ( UUID(..), getRandomUUID, getUUID ) where
1615
17−import Prelude
1816import Data.Bits (clearBit, setBit)
1917import Data.Word
2018import System.Random (RandomGen, getStdGen, randoms)
src/Text/Pandoc/Writers.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleInstances #-}
32{-# LANGUAGE GADTs #-}
43{-# LANGUAGE ScopedTypeVariables #-}
@@ -73,7 +72,6 @@ module Text.Pandoc.Writers
7372 , getWriter
7473 ) where
7574
76−import Prelude
7775import Control.Monad.Except (throwError)
7876import Control.Monad (unless)
7977import Data.Aeson
src/Text/Pandoc/Writers/AsciiDoc.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Writers.AsciiDoc
@@ -20,7 +19,6 @@ that it has omitted the construct.
2019AsciiDoc: <http://www.methods.co.nz/asciidoc/>
2120-}
2221module Text.Pandoc.Writers.AsciiDoc (writeAsciiDoc, writeAsciiDoctor) where
23−import Prelude
2422import Control.Monad.State.Strict
2523import Data.Char (isPunctuation, isSpace)
2624import Data.List (intercalate, intersperse)
src/Text/Pandoc/Writers/CommonMark.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -16,7 +15,6 @@ CommonMark: <http://commonmark.org>
1615-}
1716module Text.Pandoc.Writers.CommonMark (writeCommonMark) where
1817
19−import Prelude
2018import CMarkGFM
2119import Control.Monad.State.Strict (State, get, modify, runState)
2220import Data.Char (isAscii)
src/Text/Pandoc/Writers/ConTeXt.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ScopedTypeVariables #-}
43{-# LANGUAGE ViewPatterns #-}
@@ -14,7 +13,6 @@
1413Conversion of 'Pandoc' format into ConTeXt.
1514-}
1615module Text.Pandoc.Writers.ConTeXt ( writeConTeXt ) where
17−import Prelude
1816import Control.Monad.State.Strict
1917import Data.Char (ord, isDigit)
2018import Data.List (intersperse)
src/Text/Pandoc/Writers/Custom.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE FlexibleInstances #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{-# LANGUAGE OverloadedStrings #-}
43{- |
54 Module : Text.Pandoc.Writers.Custom
@@ -14,7 +13,6 @@ Conversion of 'Pandoc' documents to custom markup using
1413a lua writer.
1514-}
1615module Text.Pandoc.Writers.Custom ( writeCustom ) where
17−import Prelude
1816import Control.Arrow ((***))
1917import Control.Exception
2018import Control.Monad (when)
src/Text/Pandoc/Writers/Docbook.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE PatternGuards #-}
43{-# LANGUAGE ViewPatterns #-}
@@ -14,7 +13,6 @@
1413Conversion of 'Pandoc' documents to Docbook XML.
1514-}
1615module Text.Pandoc.Writers.Docbook ( writeDocbook4, writeDocbook5 ) where
17−import Prelude
1816import Control.Monad.Reader
1917import Data.Generics (everywhere, mkT)
2018import Data.Monoid (Any (..))
src/Text/Pandoc/Writers/Docx.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE PatternGuards #-}
32{-# LANGUAGE RankNTypes #-}
43{-# LANGUAGE ScopedTypeVariables #-}
@@ -17,7 +16,6 @@
1716Conversion of 'Pandoc' documents to docx.
1817-}
1918module Text.Pandoc.Writers.Docx ( writeDocx ) where
20−import Prelude
2119import Codec.Archive.Zip
2220import Control.Applicative ((<|>))
2321import Control.Monad.Except (catchError, throwError)
src/Text/Pandoc/Writers/Docx/StyleMap.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleContexts #-}
32{- |
43 Module : Text.Pandoc.Writers.Docx.StyleMap
@@ -30,7 +29,6 @@ import qualified Data.Map as M
3029import qualified Data.Text as T
3130import Data.String
3231import Data.Char (isSpace)
33−import Prelude
3432
3533data StyleMaps = StyleMaps { smCharStyle :: CharStyleNameMap, smParaStyle :: ParaStyleNameMap }
3634type ParaStyleNameMap = M.Map ParaStyleName ParStyle
src/Text/Pandoc/Writers/DokuWiki.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Writers.DokuWiki
@@ -23,7 +22,6 @@ DokuWiki: <https://www.dokuwiki.org/dokuwiki>
2322-}
2423
2524module Text.Pandoc.Writers.DokuWiki ( writeDokuWiki ) where
26−import Prelude
2725import Control.Monad (zipWithM)
2826import Control.Monad.Reader (ReaderT, asks, local, runReaderT)
2927import Control.Monad.State.Strict (StateT, evalStateT)
src/Text/Pandoc/Writers/EPUB.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE CPP #-}
32{-# LANGUAGE FlexibleContexts #-}
43{-# LANGUAGE PatternGuards #-}
@@ -16,7 +15,6 @@
1615Conversion of 'Pandoc' documents to EPUB.
1716-}
1817module Text.Pandoc.Writers.EPUB ( writeEPUB2, writeEPUB3 ) where
19−import Prelude
2018import Codec.Archive.Zip (Entry, addEntryToArchive, eRelativePath, emptyArchive,
2119 fromArchive, fromEntry, toEntry)
2220import Control.Applicative ( (<|>) )
src/Text/Pandoc/Writers/FB2.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE PatternGuards #-}
32{-# LANGUAGE OverloadedStrings #-}
43{- |
@@ -19,7 +18,6 @@ FictionBook is an XML-based e-book format. For more information see:
1918-}
2019module Text.Pandoc.Writers.FB2 (writeFB2) where
2120
22−import Prelude
2321import Control.Monad (zipWithM)
2422import Control.Monad.Except (catchError)
2523import Control.Monad.State.Strict (StateT, evalStateT, get, gets, lift, liftM, modify)
src/Text/Pandoc/Writers/HTML.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE MultiWayIf #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE ScopedTypeVariables #-}
54{-# LANGUAGE ViewPatterns #-}
@@ -39,7 +38,6 @@ import Network.HTTP (urlEncode)
3938import Network.URI (URI (..), parseURIReference)
4039import Numeric (showHex)
4140import Text.DocLayout (render, literal)
42−import Prelude
4341import Text.Blaze.Internal (MarkupM (Empty), customLeaf, customParent)
4442import Text.DocTemplates (FromContext (lookupContext), Context (..))
4543import Text.Blaze.Html hiding (contents)
src/Text/Pandoc/Writers/Haddock.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ScopedTypeVariables #-}
43{- |
@@ -15,7 +14,6 @@ Conversion of 'Pandoc' documents to haddock markup.
1514Haddock: <http://www.haskell.org/haddock/doc/html/>
1615-}
1716module Text.Pandoc.Writers.Haddock (writeHaddock) where
18−import Prelude
1917import Control.Monad.State.Strict
2018import Data.Default
2119import Data.Text (Text)
src/Text/Pandoc/Writers/ICML.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleContexts #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE ScopedTypeVariables #-}
@@ -18,7 +17,6 @@ InCopy is the companion word-processor to Adobe InDesign and ICML documents can
1817into InDesign with File -> Place.
1918-}
2019module Text.Pandoc.Writers.ICML (writeICML) where
21−import Prelude
2220import Control.Monad.Except (catchError)
2321import Control.Monad.State.Strict
2422import Data.List (intersperse)
src/Text/Pandoc/Writers/Ipynb.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ScopedTypeVariables #-}
43{- |
@@ -15,7 +14,6 @@ Ipynb (Jupyter notebook JSON format) writer for pandoc.
1514-}
1615module Text.Pandoc.Writers.Ipynb ( writeIpynb )
1716where
18−import Prelude
1917import Control.Monad.State
2018import qualified Data.Map as M
2119import Data.Maybe (catMaybes, fromMaybe)
src/Text/Pandoc/Writers/JATS.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE ScopedTypeVariables #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE ViewPatterns #-}
@@ -21,7 +20,6 @@ module Text.Pandoc.Writers.JATS
2120 , writeJatsPublishing
2221 , writeJatsArticleAuthoring
2322 ) where
24−import Prelude
2523import Control.Monad.Reader
2624import Control.Monad.State
2725import Data.Generics (everywhere, mkT)
src/Text/Pandoc/Writers/Jira.hs−2
@@ -1,6 +1,5 @@
11{-# LANGUAGE LambdaCase #-}
22{-# LANGUAGE OverloadedStrings #-}
3−{-# LANGUAGE NoImplicitPrelude #-}
43{- |
54 Module : Text.Pandoc.Writers.Jira
65 Copyright : © 2010-2020 Albert Krewinkel, John MacFarlane
@@ -16,7 +15,6 @@ JIRA:
1615<https://jira.atlassian.com/secure/WikiRendererHelpAction.jspa?section=all>
1716-}
1817module Text.Pandoc.Writers.Jira ( writeJira ) where
19−import Prelude
2018import Control.Monad.Reader (ReaderT, ask, asks, runReaderT)
2119import Control.Monad.State.Strict (StateT, evalStateT, gets, modify)
2220import Data.Foldable (find)
src/Text/Pandoc/Writers/LaTeX.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE PatternGuards #-}
43{-# LANGUAGE ScopedTypeVariables #-}
@@ -18,7 +17,6 @@ module Text.Pandoc.Writers.LaTeX (
1817 writeLaTeX
1918 , writeBeamer
2019 ) where
21−import Prelude
2220import Control.Applicative ((<|>))
2321import Control.Monad.State.Strict
2422import Data.Monoid (Any(..))
src/Text/Pandoc/Writers/Man.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -14,7 +13,6 @@ Conversion of 'Pandoc' documents to roff man page format.
1413
1514-}
1615module Text.Pandoc.Writers.Man ( writeMan ) where
17−import Prelude
1816import Control.Monad.State.Strict
1917import Data.List (intersperse)
2018import Data.Maybe (fromMaybe)
src/Text/Pandoc/Writers/Markdown.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE MultiWayIf #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE ScopedTypeVariables #-}
@@ -18,7 +17,6 @@ Conversion of 'Pandoc' documents to markdown-formatted plain text.
1817Markdown: <http://daringfireball.net/projects/markdown/>
1918-}
2019module Text.Pandoc.Writers.Markdown (writeMarkdown, writePlain) where
21−import Prelude
2220import Control.Monad.Reader
2321import Control.Monad.State.Strict
2422import Data.Char (isAlphaNum)
src/Text/Pandoc/Writers/Math.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32module Text.Pandoc.Writers.Math
43 ( texMathToInlines
@@ -8,7 +7,6 @@ module Text.Pandoc.Writers.Math
87 )
98where
109
11−import Prelude
1210import qualified Data.Text as T
1311import Text.Pandoc.Class
1412import Text.Pandoc.Definition
src/Text/Pandoc/Writers/MediaWiki.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -15,7 +14,6 @@ Conversion of 'Pandoc' documents to MediaWiki markup.
1514MediaWiki: <http://www.mediawiki.org/wiki/MediaWiki>
1615-}
1716module Text.Pandoc.Writers.MediaWiki ( writeMediaWiki, highlightingLangs ) where
18−import Prelude
1917import Control.Monad.Reader
2018import Control.Monad.State.Strict
2119import Data.Maybe (fromMaybe)
src/Text/Pandoc/Writers/Ms.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -21,7 +20,6 @@ TODO:
2120-}
2221
2322module Text.Pandoc.Writers.Ms ( writeMs ) where
24−import Prelude
2523import Control.Monad.State.Strict
2624import Data.Char (isLower, isUpper, ord)
2725import Data.List (intercalate, intersperse)
src/Text/Pandoc/Writers/Muse.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -26,7 +25,6 @@ However, @\<literal style="html">@ tag is used for HTML raw blocks
2625even though it is supported only in Emacs Muse.
2726-}
2827module Text.Pandoc.Writers.Muse (writeMuse) where
29−import Prelude
3028import Control.Monad.Except (throwError)
3129import Control.Monad.Reader
3230import Control.Monad.State.Strict
src/Text/Pandoc/Writers/Native.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Writers.Native
@@ -13,7 +12,6 @@ Conversion of a 'Pandoc' document to a string representation.
1312-}
1413module Text.Pandoc.Writers.Native ( writeNative )
1514where
16−import Prelude
1715import Data.List (intersperse)
1816import Data.Text (Text)
1917import Text.Pandoc.Class (PandocMonad)
src/Text/Pandoc/Writers/ODT.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE ScopedTypeVariables #-}
32{-# LANGUAGE OverloadedStrings #-}
43{- |
@@ -13,7 +12,6 @@
1312Conversion of 'Pandoc' documents to ODT.
1413-}
1514module Text.Pandoc.Writers.ODT ( writeODT ) where
16−import Prelude
1715import Codec.Archive.Zip
1816import Control.Monad.Except (catchError)
1917import Control.Monad.State.Strict
src/Text/Pandoc/Writers/OOXML.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Writers.OOXML
@@ -24,7 +23,6 @@ module Text.Pandoc.Writers.OOXML ( mknode
2423 , fitToPage
2524 ) where
2625
27−import Prelude
2826import Codec.Archive.Zip
2927import Control.Monad.Reader
3028import Control.Monad.Except (throwError)
src/Text/Pandoc/Writers/OPML.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE CPP #-}
43{- |
@@ -13,7 +12,6 @@
1312Conversion of 'Pandoc' documents to OPML XML.
1413-}
1514module Text.Pandoc.Writers.OPML ( writeOPML) where
16−import Prelude
1715import Data.Text (Text)
1816import qualified Data.Text as T
1917import qualified Text.Pandoc.Builder as B
src/Text/Pandoc/Writers/OpenDocument.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleContexts #-}
32{-# LANGUAGE OverloadedStrings #-}
43{-# LANGUAGE PatternGuards #-}
@@ -15,7 +14,6 @@
1514Conversion of 'Pandoc' documents to OpenDocument XML.
1615-}
1716module Text.Pandoc.Writers.OpenDocument ( writeOpenDocument ) where
18−import Prelude
1917import Control.Arrow ((***), (>>>))
2018import Control.Monad.State.Strict hiding (when)
2119import Data.Char (chr)
src/Text/Pandoc/Writers/Org.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Writers.Org
@@ -16,7 +15,6 @@ Conversion of 'Pandoc' documents to Emacs Org-Mode.
1615Org-Mode: <http://orgmode.org>
1716-}
1817module Text.Pandoc.Writers.Org (writeOrg) where
19−import Prelude
2018import Control.Monad.State.Strict
2119import Data.Char (isAlphaNum)
2220import Data.List (intersect, intersperse, partition, transpose)
src/Text/Pandoc/Writers/Powerpoint.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{- |
32 Module : Text.Pandoc.Writers.Powerpoint
43 Copyright : Copyright (C) 2017-2020 Jesse Rosenthal
@@ -22,7 +21,6 @@ This is a wrapper around two modules:
2221
2322module Text.Pandoc.Writers.Powerpoint (writePowerpoint) where
2423
25−import Prelude
2624import Codec.Archive.Zip
2725import Text.Pandoc.Definition
2826import Text.Pandoc.Walk
src/Text/Pandoc/Writers/Powerpoint/Output.hs−2
@@ -1,5 +1,4 @@
11{-# LANGUAGE OverloadedStrings #-}
2−{-# LANGUAGE NoImplicitPrelude #-}
32{-# LANGUAGE PatternGuards #-}
43{- |
54 Module : Text.Pandoc.Writers.Powerpoint.Output
@@ -17,7 +16,6 @@ Text.Pandoc.Writers.Powerpoint.Presentation) to a zip archive.
1716module Text.Pandoc.Writers.Powerpoint.Output ( presentationToArchive
1817 ) where
1918
20−import Prelude
2119import Control.Monad.Except (throwError, catchError)
2220import Control.Monad.Reader
2321import Control.Monad.State
src/Text/Pandoc/Writers/Powerpoint/Presentation.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE PatternGuards #-}
43{-# LANGUAGE ViewPatterns #-}
@@ -43,7 +42,6 @@ module Text.Pandoc.Writers.Powerpoint.Presentation ( documentToPresentation
4342 ) where
4443
4544
46−import Prelude
4745import Control.Monad.Reader
4846import Control.Monad.State
4947import Data.List (intercalate)
src/Text/Pandoc/Writers/RST.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -15,7 +14,6 @@ Conversion of 'Pandoc' documents to reStructuredText.
1514reStructuredText: <http://docutils.sourceforge.net/rst.html>
1615-}
1716module Text.Pandoc.Writers.RST ( writeRST, flatten ) where
18−import Prelude
1917import Control.Monad.State.Strict
2018import Data.Char (isSpace)
2119import Data.List (transpose, intersperse)
src/Text/Pandoc/Writers/RTF.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE ScopedTypeVariables #-}
32{-# LANGUAGE OverloadedStrings #-}
43{- |
@@ -14,7 +13,6 @@ Conversion of 'Pandoc' documents to RTF (rich text format).
1413-}
1514module Text.Pandoc.Writers.RTF ( writeRTF
1615 ) where
17−import Prelude
1816import Control.Monad.Except (catchError, throwError)
1917import Control.Monad
2018import qualified Data.ByteString as B
src/Text/Pandoc/Writers/Roff.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Writers.Roff
@@ -21,7 +20,6 @@ module Text.Pandoc.Writers.Roff (
2120 , escapeString
2221 , withFontFeature
2322 ) where
24−import Prelude
2523import Data.Char (ord, isAscii)
2624import Control.Monad.State.Strict
2725import qualified Data.Map as Map
src/Text/Pandoc/Writers/Shared.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE FlexibleContexts #-}
32{-# LANGUAGE ScopedTypeVariables #-}
43{-# LANGUAGE OverloadedStrings #-}
@@ -37,7 +36,6 @@ module Text.Pandoc.Writers.Shared (
3736 , endsWithPlain
3837 )
3938where
40−import Prelude
4139import Safe (lastMay)
4240import qualified Data.ByteString.Lazy as BL
4341import Data.Maybe (fromMaybe, isNothing)
src/Text/Pandoc/Writers/TEI.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE PatternGuards #-}
43{- |
@@ -13,7 +12,6 @@
1312Conversion of 'Pandoc' documents to Docbook XML.
1413-}
1514module Text.Pandoc.Writers.TEI (writeTEI) where
16−import Prelude
1715import Data.Text (Text)
1816import qualified Data.Text as T
1917import Text.Pandoc.Class (PandocMonad, report)
src/Text/Pandoc/Writers/Texinfo.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{- |
43 Module : Text.Pandoc.Writers.Texinfo
@@ -13,7 +12,6 @@
1312Conversion of 'Pandoc' format into Texinfo.
1413-}
1514module Text.Pandoc.Writers.Texinfo ( writeTexinfo ) where
16−import Prelude
1715import Control.Monad.Except (throwError)
1816import Control.Monad.State.Strict
1917import Data.Char (chr, ord)
src/Text/Pandoc/Writers/Textile.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -15,7 +14,6 @@ Conversion of 'Pandoc' documents to Textile markup.
1514Textile: <http://thresholdstate.com/articles/4312/the-textile-reference-manual>
1615-}
1716module Text.Pandoc.Writers.Textile ( writeTextile ) where
18−import Prelude
1917import Control.Monad.State.Strict
2018import Data.Char (isSpace)
2119import Data.Text (Text)
src/Text/Pandoc/Writers/XWiki.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-
43Copyright (C) 2008-2017 John MacFarlane <jgm@berkeley.edu>
@@ -34,7 +33,6 @@ XWiki Syntax: <http://www.xwiki.org/xwiki/bin/view/Documentation/UserGuide/Feat
3433-}
3534
3635module Text.Pandoc.Writers.XWiki ( writeXWiki ) where
37−import Prelude
3836import Control.Monad.Reader (ReaderT, asks, local, runReaderT)
3937import qualified Data.Set as Set
4038import qualified Data.Text as Text
src/Text/Pandoc/Writers/ZimWiki.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -17,7 +16,6 @@ http://zim-wiki.org/manual/Help/Wiki_Syntax.html
1716-}
1817
1918module Text.Pandoc.Writers.ZimWiki ( writeZimWiki ) where
20−import Prelude
2119import Control.Monad (zipWithM)
2220import Control.Monad.State.Strict (StateT, evalStateT, gets, modify)
2321import Data.Default (Default (..))
src/Text/Pandoc/XML.hs−2
@@ -1,4 +1,3 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ViewPatterns #-}
43{- |
@@ -25,7 +24,6 @@ module Text.Pandoc.XML ( escapeCharForXML,
2524 html5Attributes,
2625 rdfaAttributes ) where
2726
28−import Prelude
2927import Data.Char (isAscii, isSpace, ord)
3028import Data.Text (Text)
3129import qualified Data.Text as T