diff options
Diffstat (limited to 'test/Tests/Readers/FB2.hs')
-rw-r--r-- | test/Tests/Readers/FB2.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Tests/Readers/FB2.hs b/test/Tests/Readers/FB2.hs index e64e8a2ce..dd228aeae 100644 --- a/test/Tests/Readers/FB2.hs +++ b/test/Tests/Readers/FB2.hs @@ -24,7 +24,7 @@ import Data.Text.Lazy (fromStrict) import System.FilePath (replaceExtension) fb2ToNative :: Text -> Text -fb2ToNative = purely (writeNative def{ writerTemplate = Just "" }) . purely (readFB2 def) +fb2ToNative = purely (writeNative def{ writerTemplate = Just mempty }) . purely (readFB2 def) fb2Test :: TestName -> FilePath -> TestTree fb2Test name path = goldenVsString name native (fromTextLazy . fromStrict . fb2ToNative . toText <$> BS.readFile path) |