stage imports

Author: mpickering

pandoc.cabal

@@ -420,6 +420,7 @@ flag embed_data_files
 
 common common-options
   default-language: Haskell2010
+  default-extensions: ExplicitStageImports
   build-depends:    base         >= 4.12 && < 5
   ghc-options:      -Wall -fno-warn-unused-do-bind
                     -Wincomplete-record-updates
@@ -429,7 +430,6 @@ common common-options
                     -Widentities
                     -Wpartial-fields
                     -Wmissing-signatures
-                    -fhide-source-paths
                     -- -Wmissing-export-lists
 
   if impl(ghc >= 8.10)

src/Text/Pandoc/App/Opt.hs

@@ -60,10 +60,14 @@ import qualified Data.ByteString.Char8 as B8
 import Text.Pandoc.Definition (Meta(..), MetaValue(..))
 import Data.Aeson (defaultOptions, Options(..), Result(..),
                    genericToJSON, fromJSON, camelTo2)
-import Data.Aeson.TH (deriveJSON)
 import Control.Applicative ((<|>))
 import Data.Yaml
 
+import splice Data.Aeson.TH (deriveJSON, defaultOptions)
+import splice Prelude
+import splice Data.Char
+
+
 -- | The type of line-endings to be used when writing plain-text.
 data LineEnding = LF | CRLF | Native deriving (Show, Generic)
 

src/Text/Pandoc/Citeproc/Data.hs

@@ -3,7 +3,7 @@
 module Text.Pandoc.Citeproc.Data
   (biblatexStringMap)
 where
-import Data.FileEmbed
+import splice Data.FileEmbed
 import Data.ByteString (ByteString)
 import qualified Data.Map as M
 import qualified Data.Text.Encoding as TE

src/Text/Pandoc/Data/BakedIn.hs

@@ -13,7 +13,7 @@ Provide contents data files as Haskell values.
 module Text.Pandoc.Data.BakedIn (dataFiles) where
 
 import qualified Data.ByteString as B
-import Data.FileEmbed
+import splice Data.FileEmbed
 import System.FilePath (splitDirectories)
 import qualified System.FilePath.Posix as Posix
 

src/Text/Pandoc/Options.hs

@@ -48,9 +48,13 @@ import Text.Pandoc.Extensions
 import Text.Pandoc.Chunks (PathTemplate)
 import Text.Pandoc.Highlighting (Style, pygments)
 import Text.Pandoc.UTF8 (toStringLazy)
-import Data.Aeson.TH (deriveJSON)
 import Data.Aeson
 
+import splice Data.Aeson.TH (deriveJSON, defaultOptions)
+import splice Data.Aeson (camelTo2)
+import splice Prelude
+import splice Data.Char
+
 class HasSyntaxExtensions a where
   getExtensions :: a -> Extensions
 

src/Text/Pandoc/Readers/DocBook.hs

@@ -22,7 +22,6 @@ import Control.Monad.State.Strict
       gets,
       modify )
 import Data.ByteString (ByteString)
-import Data.FileEmbed
 import Data.Char (isSpace, isLetter, chr)
 import Data.Default
 import Data.Either (rights)
@@ -51,6 +50,8 @@ import qualified Data.Map as M
 import Text.Pandoc.XML.Light
 import Text.Pandoc.Walk (query)
 
+import splice Data.FileEmbed
+
 {-
 
 List of all DocBook tags, with [x] indicating implemented,