From 5572dbc8289de934e9ee5bc3f74a0f98365ce3e5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 21 Apr 2017 17:42:10 -0400 Subject: 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. --- Val.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Val.hs') diff --git a/Val.hs b/Val.hs index 80ab8ed..3493bcd 100644 --- a/Val.hs +++ b/Val.hs @@ -19,7 +19,7 @@ newtype Val = Val { val :: B.ByteString } instance DataSize Val where dataSize (Val b) = fromIntegral (B.length b) -instance Serialize Val +instance Binary Val -- | JSON instances for Val, using base64 encoding when the value -- is not utf-8 encoded, and otherwise using a more efficient encoding. -- cgit v1.2.3