1 files changed, 18 insertions, 0 deletions

diff --git a/KikiD/GetLine.hs b/KikiD/GetLine.hs
new file mode 100644
index 0000000..8af5dc6
--- /dev/null
+++ b/KikiD/GetLine.hs
@@ -0,0 +1,18 @@
+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)