| branch | server_refactor |
| changeset 4599 | a9e4093a7e78 |
| parent 4583 | ab82045ea083 |
| child 4601 | 08ae94dd4c0d |
| 4597:31e042ab870c | 4599:a9e4093a7e78 |
|---|---|
119 Right (a, new_b) -> let (a', b') = unfoldrE f new_b in (a : a', b') |
119 Right (a, new_b) -> let (a', b') = unfoldrE f new_b in (a : a', b') |
120 Left new_b -> ([], new_b) |
120 Left new_b -> ([], new_b) |
121 |
121 |
122 showB :: Show a => a -> B.ByteString |
122 showB :: Show a => a -> B.ByteString |
123 showB = B.pack .show |
123 showB = B.pack .show |
124 |
|
125 io = liftIO |