kikid: Serialization...

1 files changed, 0 insertions, 18 deletions

diff --git a/KikiD/GetLine.hs b/KikiD/GetLine.hs
deleted file mode 100644
index 8af5dc6..0000000
--- a/KikiD/GetLine.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-module KikiD.GetLine where
-
-import Control.Monad
-import Data.Serialize
-import qualified Data.ByteString as BS
-import qualified Data.ByteString.Lazy as L
-import Data.Monoid
-import Data.Binary.Builder
-
-getLine :: Get BS.ByteString
-getLine = getWords empty
- where
-    getWords b = do
-        w <- getWord8
-        let x = singleton w
-        if (w == 10 || w == 0)
-            then return $ BS.concat . L.toChunks . toLazyByteString $ b <> x
-            else getWords (b <> x)