Fixed serialization error

1 files changed, 9 insertions, 5 deletions

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