fix

qrilka · Feb 6, 2025 · 82a3218 · 82a3218
1 parent b2c5bde
commit 82a3218
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/src/Codec/Xlsx/Writer/Stream.hs b/src/Codec/Xlsx/Writer/Stream.hs
@@ -71,9 +71,6 @@ import Text.Printf
 import Text.XML (toXMLElement)
 import qualified Text.XML as TXML
 import Text.XML.Stream.Render
-#if MIN_VERSION_xml_conduit(1,10,0)
-import Text.XML.Stream.Render.Internal (RenderSettings(rsPretty))
-#endif
 import Text.XML.Unresolved (elementToEvents)
 
 
@@ -268,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