kikid: The Beginnings of the Kiki Daemon

1 files changed, 18 insertions, 0 deletions

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)
+