KikiD/Message.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

module KikiD.Message where

import Data.Serialize
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 m = mapM_ (putWord8 . fromIntegral . ord) "TODO"
                -- putByteString . B.pack $ show m ++ "\n"
    get = do
        t <- getWord8
        o <- getWord8
        d <- getWord8
        o <- getWord8
        return TODO