1e1a7a9 · typeable/pandoc

git.iko.soy/typeable/pandoc

Fixed warnings.

commit1e1a7a9b83f13cfcbef5c4239e43f3724260cef4 authorJohn MacFarlane <jgm@berkeley.edu> dateSun 29 Oct 2017, 15:19 (9 years ago) parent6a1476e

2 files changed+3−8

unifiedsplit

benchmark/benchmark-pandoc.hs+3−3

@@ -16,7 +16,6 @@ along with this program; if not, write to the Free Software

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

1717-}

1818import Text.Pandoc

19−import Text.Pandoc.Class hiding (getCurrentTime, trace)

2019import qualified Text.Pandoc.UTF8 as UTF8

2120import Data.Text (Text)

2221import Data.Time (getCurrentTime)

@@ -38,7 +37,8 @@ readerBench doc (name, reader) =

3837 $ writer def{ writerWrapText = WrapAuto} doc

3938 in return $ bench (name ++ " reader") $ nf

4039 (reader def) inp

41− _ -> trace ("\nCould not find writer for " ++ name ++ "\n") Nothing

40+ _ -> Debug.Trace.trace

41+ ("\nCould not find writer for " ++ name ++ "\n") Nothing

4242

4343writerBench :: Pandoc

4444 -> (String, WriterOptions -> Pandoc -> Text)

@@ -66,7 +66,7 @@ main = do

6666 inp <- UTF8.toText <$> B.readFile "test/testsuite.txt"

6767 lalune <- B.readFile "test/lalune.jpg"

6868 movie <- B.readFile "test/movie.jpg"

69− time <- getCurrentTime

69+ time <- Data.Time.getCurrentTime

7070 let setupFakeFiles = modifyPureState $ \st -> st{ stFiles =

7171 FileTree $ Map.fromList [

7272 ("lalune.jpg", FileInfo time lalune),

src/Text/Pandoc/App.hs−5

@@ -77,11 +77,6 @@ import System.IO.Error (isDoesNotExistError)

7777import Text.Pandoc

7878import Text.Pandoc.BCP47 (Lang (..), parseBCP47)

7979import Text.Pandoc.Builder (setMeta)

80−import Text.Pandoc.Class (PandocIO, extractMedia, fillMediaBag, getLog, openURL,

81− readDataFile, readDefaultDataFile, readFileStrict,

82− report, setInputFiles, setOutputFile,

83− setRequestHeader, setResourcePath, setTrace,

84− setTranslations, setUserDataDir)

8580import Text.Pandoc.Highlighting (highlightingStyles)

8681import Text.Pandoc.Lua (LuaException (..), runLuaFilter)

8782import Text.Pandoc.PDF (makePDF)