Commits

Michael Snoyman  committed 296ca12

Work around missing Lazy.hPutStrLn

  • Participants
  • Parent commits b5b84b0

Comments (0)

Files changed (1)

       let dump = object [ "config" .= cfg
                         , "environment" .= env
                         , "analysis" .= G.toJSON analysis ]
-      maybeWriteFile json $ \h -> BL.hPutStrLn h . encode $ dump
+      maybeWriteFile json $ \h -> BL.hPut h (BL.append (encode dump) "\n")
       maybeWriteFile dump_events $ \h ->
           TL.hPutStr h . toLazyText . csvEvents $ results
       maybeWriteFile output $ \h -> either (writeReport template h)