From 3989ea283124745ab378c440459138f66602dc52 Mon Sep 17 00:00:00 2001 From: joe Date: Sun, 21 Jun 2015 17:52:29 -0400 Subject: Fixed serialization error --- KikiD/Message.hs | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'KikiD') diff --git a/KikiD/Message.hs b/KikiD/Message.hs index c4903cc..5b642f3 100644 --- a/KikiD/Message.hs +++ b/KikiD/Message.hs @@ -5,14 +5,18 @@ import qualified KikiD.GetLine import qualified Data.ByteString.Char8 as B import Data.Monoid import Text.Read +import Data.Char (ord) +import Control.Monad data KikiDMessage = TODO deriving (Show,Read) instance Serialize KikiDMessage where - put = putByteString . B.pack . show + put m = mapM_ (putWord8 . fromIntegral . ord) "TODO" + -- putByteString . B.pack $ show m ++ "\n" get = do - x <- KikiD.GetLine.getLine - case (readEither (B.unpack x) :: Either String KikiDMessage) of - Right m -> return m - Left er -> fail ("PARSE ERROR: " <> er) + t <- getWord8 + o <- getWord8 + d <- getWord8 + o <- getWord8 + return TODO -- cgit v1.2.3