use forked xml-conduit (fixes renderBuilderFlush = undefined)

1 files changed, 1 insertions, 4 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index 8f32535a..8845ea72 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -248,9 +248,6 @@ wlog s = putStrLn s >> hFlush stdout
 wlogb :: ByteString -> IO ()
 wlogb s = Strict8.putStrLn s >> hFlush stdout
 
-renderBuilderFlush :: Monad m => XML.RenderSettings -> Conduit (Flush Event) m (Flush Builder)
-renderBuilderFlush = undefined
-
 xmlStream :: ReadCommand -> WriteCommand -> ( Source IO XML.Event
                                             , Sink (Flush XML.Event) IO () )
 xmlStream conread conwrite = (xsrc,xsnk)
@@ -258,7 +255,7 @@ xmlStream conread conwrite = (xsrc,xsnk)
     xsrc = src $= XML.parseBytes XML.def
     xsnk :: Sink (Flush Event) IO ()
     xsnk = -- XML.renderBytes XML.def =$ snk
-        renderBuilderFlush XML.def
+        XML.renderBuilderFlush XML.def
         =$= builderToByteStringFlush
         =$= discardFlush
         =$ snk