diff options
author | James Crayne <jim.crayne@gmail.com> | 2015-06-21 07:36:46 -0400 |
---|---|---|
committer | James Crayne <jim.crayne@gmail.com> | 2015-06-21 15:35:26 -0400 |
commit | d420aefe0b14081b00d4655f9e8317903b5b02c3 (patch) | |
tree | 7b58c8a784d1ef23be05e62aaf0c8311353d57d5 /KikiD/GetLine.hs | |
parent | 75d4b3b8bc60ff1d7ccc3990833a4439c0af02bc (diff) |
kikid: The Beginnings of the Kiki Daemon
Diffstat (limited to 'KikiD/GetLine.hs')
-rw-r--r-- | KikiD/GetLine.hs | 18 |
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 @@ | |||
1 | module KikiD.GetLine where | ||
2 | |||
3 | import Control.Monad | ||
4 | import Data.Serialize | ||
5 | import qualified Data.ByteString as BS | ||
6 | import qualified Data.ByteString.Lazy as L | ||
7 | import Data.Monoid | ||
8 | import Data.Binary.Builder | ||
9 | |||
10 | getLine :: Get BS.ByteString | ||
11 | getLine = getWords empty | ||
12 | where | ||
13 | getWords b = do | ||
14 | w <- getWord8 | ||
15 | let x = singleton w | ||
16 | if (w == 10 || w == 0) | ||
17 | then return $ BS.concat . L.toChunks . toLazyByteString $ b <> x | ||
18 | else getWords (b <> x) | ||