Merge pull request #181 from nitinprakash96/nitin/patch

Fix build failure with new xml-conduit release
qrilka · Feb 6, 2025 · 18c3464 · 18c3464
2 parents d44c7e0 + 82a3218
commit 18c3464
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Codec/Xlsx/Writer/Stream.hs b/src/Codec/Xlsx/Writer/Stream.hs
@@ -265,7 +265,7 @@ writeSst sharedStrings' = doc (n_ "sst") $
                   ) $ sortBy (\(_, i) (_, y :: Int) -> compare i y) $ Map.toList sharedStrings'
 
 writeEvents ::  PrimMonad m => ConduitT Event Builder m ()
-writeEvents = renderBuilder (def {rsPretty=False})
+writeEvents = renderBuilder def
 
 sheetViews :: forall m . MonadReader SheetWriteSettings m => forall i . ConduitT i Event m ()
 sheetViews = do