From d420aefe0b14081b00d4655f9e8317903b5b02c3 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Sun, 21 Jun 2015 07:36:46 -0400 Subject: kikid: The Beginnings of the Kiki Daemon --- KikiD/Message.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 KikiD/Message.hs (limited to 'KikiD/Message.hs') diff --git a/KikiD/Message.hs b/KikiD/Message.hs new file mode 100644 index 0000000..c4903cc --- /dev/null +++ b/KikiD/Message.hs @@ -0,0 +1,18 @@ +module KikiD.Message where + +import Data.Serialize +import qualified KikiD.GetLine +import qualified Data.ByteString.Char8 as B +import Data.Monoid +import Text.Read + +data KikiDMessage = TODO deriving (Show,Read) + +instance Serialize KikiDMessage where + put = putByteString . B.pack . show + 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) + -- cgit v1.2.3