diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-10-29 15:19:49 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-29 15:19:49 -0700 |
| commit | 1e1a7a9b83f13cfcbef5c4239e43f3724260cef4 (patch) | |
| tree | fafee09aa463e89fe0fe93ecbb9391097cd61020 /benchmark | |
| parent | 6a1476e7e26b603bb69112a2666c47ac883ee36f (diff) | |
| download | pandoc-1e1a7a9b83f13cfcbef5c4239e43f3724260cef4.tar.gz | |
Fixed warnings.
Diffstat (limited to 'benchmark')
| -rw-r--r-- | benchmark/benchmark-pandoc.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs index d9347c539..a667a6f81 100644 --- a/benchmark/benchmark-pandoc.hs +++ b/benchmark/benchmark-pandoc.hs @@ -16,7 +16,6 @@ along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -} import Text.Pandoc -import Text.Pandoc.Class hiding (getCurrentTime, trace) import qualified Text.Pandoc.UTF8 as UTF8 import Data.Text (Text) import Data.Time (getCurrentTime) @@ -38,7 +37,8 @@ readerBench doc (name, reader) = $ writer def{ writerWrapText = WrapAuto} doc in return $ bench (name ++ " reader") $ nf (reader def) inp - _ -> trace ("\nCould not find writer for " ++ name ++ "\n") Nothing + _ -> Debug.Trace.trace + ("\nCould not find writer for " ++ name ++ "\n") Nothing writerBench :: Pandoc -> (String, WriterOptions -> Pandoc -> Text) @@ -66,7 +66,7 @@ main = do inp <- UTF8.toText <$> B.readFile "test/testsuite.txt" lalune <- B.readFile "test/lalune.jpg" movie <- B.readFile "test/movie.jpg" - time <- getCurrentTime + time <- Data.Time.getCurrentTime let setupFakeFiles = modifyPureState $ \st -> st{ stFiles = FileTree $ Map.fromList [ ("lalune.jpg", FileInfo time lalune), |