blob: 5b642f3fd77da300596f64bb4971b1c5df89c2f9 (
plain)
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
|