diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-21 17:42:10 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-21 17:52:18 -0400 |
commit | 5572dbc8289de934e9ee5bc3f74a0f98365ce3e5 (patch) | |
tree | 9c1bba1a5d40748f72e13be788c29ed24dc3dd28 /Log.hs | |
parent | 360d8ac4601dc5b48c22eeb93eb1853cee99e6c9 (diff) | |
download | debug-me-5572dbc8289de934e9ee5bc3f74a0f98365ce3e5.tar.gz |
initial http server
Incomplete, but the client is able to connect and send messages which
get logged.
Split up debug-me.hs into Role/*
Switched from cereal to binary, since websockets operate on lazy
ByteStrings, and using cereal would involve a copy on every receive.
This commit was sponsored by Boyd Stephen Smith Jr. on Patreon.
Diffstat (limited to 'Log.hs')
-rw-r--r-- | Log.hs | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -71,6 +71,10 @@ withLogger logfile a = withFile logfile WriteMode (a . mkLogger) mkLogger :: Handle -> Logger mkLogger h a = do l <- mkLog a <$> getPOSIXTime + writeLogHandle l h + +writeLogHandle :: Log -> Handle -> IO () +writeLogHandle l h = do L.hPut h (encode l) hPutStr h "\n" hFlush h |