From 4ec9cc5e6e1c71184c0537fb2fbd4387f27b3ac2 Mon Sep 17 00:00:00 2001
From: James Crayne <jim.crayne@gmail.com>
Date: Thu, 28 Apr 2016 17:25:01 -0400
Subject: remove kikid, moved to separate repo

---
 KikiD/Message.hs | 42 ------------------------------------------
 1 file changed, 42 deletions(-)
 delete mode 100644 KikiD/Message.hs

(limited to 'KikiD/Message.hs')

diff --git a/KikiD/Message.hs b/KikiD/Message.hs
deleted file mode 100644
index efefdc6..0000000
--- a/KikiD/Message.hs
+++ /dev/null
@@ -1,42 +0,0 @@
-{-# LANGUAGE DoAndIfThenElse #-}
-module KikiD.Message where
-
-import Data.Serialize as Cereal
-import qualified Data.ByteString.Char8 as B
-import Data.Monoid
-import Text.Read
-import Data.Char (ord,chr)
-import Control.Monad
-import Data.Bytes.Serial as R
-import Data.Bytes.Put as Put
-import Data.Bytes.Get as Get
-import Codec.LineReady
-import Control.Monad.Loops
-import Data.Word
-
-data KikiDMessage = TODO deriving (Show,Read)
-
-instance Serialize KikiDMessage where
-    put m = mapM_ (Cereal.putWord8 . fromIntegral . ord) "TO\nO"
-                -- putByteString . B.pack $ show m ++ "\n"
-    get = do
-        t <- Cereal.getWord8
-        o <- Cereal.getWord8
-        d <- Cereal.getWord8
-        o <- Cereal.getWord8
-        let s = map (chr . fromIntegral) [t,o,d,o] 
-        if "TO\nO" == s
-        then return TODO
-        else fail ("Could not decode message: " ++ show s)
-
-instance Serial KikiDMessage where
-    serialize m = Put.putByteString . toLineReady . Cereal.encode $ m
-    deserialize = do 
-        xs <- unfoldM $ do
-            flag <- Get.isEmpty
-            if flag then return Nothing else do
-                c <- fmap (chr . fromIntegral) Get.getWord8
-                if (c == '\n') then return Nothing else return (Just c)
-        case (Cereal.decode . fromLineReady $ B.pack xs) of
-            Left str -> fail str
-            Right x  -> return x
-- 
cgit v1.2.3