diff options
| author | Daniel Gnoutcheff <gnoutchd@softwarefreedom.org> | 2021-09-14 17:25:17 -0400 |
|---|---|---|
| committer | Daniel Gnoutcheff <gnoutchd@softwarefreedom.org> | 2021-09-14 17:25:17 -0400 |
| commit | 36d8716f1689cc1f6fe474871f8c814188295a9f (patch) | |
| tree | 5360ab8c066d84b5a6eb5f905d2cfe0938c82096 | |
| parent | ec43bfb689b5c251997a6593b69b55312597c5be (diff) | |
Fix flushing
We meant to flush after putStr, not before.
| -rw-r--r-- | app/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |