From 1e1a7a9b83f13cfcbef5c4239e43f3724260cef4 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 29 Oct 2017 15:19:49 -0700
Subject: Fixed warnings.

---
 benchmark/benchmark-pandoc.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'benchmark')

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),
-- 
cgit v1.2.3