From 36d8716f1689cc1f6fe474871f8c814188295a9f Mon Sep 17 00:00:00 2001
From: Daniel Gnoutcheff <gnoutchd@softwarefreedom.org>
Date: Tue, 14 Sep 2021 17:25:17 -0400
Subject: Fix flushing

We meant to flush after putStr, not before.
---
 app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index d327a80..01e2b4c 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -33,7 +33,7 @@ rpcIn = map (either error id) . chop (xmlParseWith rpcMessage) .
   xmlLex "<stdin>" <$> getContents
 
 rpcOut :: [Document ()] -> IO ()
-rpcOut = mapM_ $ (<*) (hFlush stdout) . BSL8.putStr . XPP.document . escapeDoc
+rpcOut = mapM_ $ (*> hFlush stdout) . BSL8.putStr . XPP.document . escapeDoc
 
 main :: IO ()
 main = rpcOut . plugin =<< rpcIn
-- 
cgit v1.2.3