From 2e7b0c7edaac9fbba52ac3cbc6380dbfb74805cf Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 10 Dec 2016 16:52:35 +0100
Subject: Added ReaderOptions parameter to readNative.

This makes it similar to the other readers -- even
though ReaderOptions is essentially ignored, the uniformity
is nice.
---
 tests/Tests/Writers/Docx.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests/Tests/Writers')

diff --git a/tests/Tests/Writers/Docx.hs b/tests/Tests/Writers/Docx.hs
index 44095925f..fd320d224 100644
--- a/tests/Tests/Writers/Docx.hs
+++ b/tests/Tests/Writers/Docx.hs
@@ -21,9 +21,9 @@ compareOutput opts nativeFileIn nativeFileOut = do
   nf' <- Prelude.readFile nativeFileOut
   let wopts = fst opts
   df <- runIOorExplode $ do
-            d <- readNative nf
+            d <- readNative def nf
             writeDocx wopts{writerUserDataDir = Just (".." </> "data")} d
-  df' <- runIOorExplode (readNative nf')
+  df' <- runIOorExplode (readNative def nf')
   p <- runIOorExplode $ readDocx (snd opts) df
   return (p, df')
 
-- 
cgit v1.2.3