12 import Numeric

    12 import Numeric

    13 import Network.Socket

    13 import Network.Socket

    14 import System.IO

    14 import System.IO

    15 import qualified Data.List as List

    15 import qualified Data.List as List

    16 import Control.Monad

    16 import Control.Monad

    17 import Data.Maybe

    18 import Data.Maybe

    18 -------------------------------------------------

    19 -------------------------------------------------

    19 import qualified Codec.Binary.Base64 as Base64

    20 import qualified Codec.Binary.Base64 as Base64

    20 import qualified Data.ByteString.Char8 as B

    21 import qualified Data.ByteString.Char8 as B

    21 import qualified Data.ByteString as BW

    22 import qualified Data.ByteString as BW

   119         Right (a, new_b) -> let (a', b') = unfoldrE f new_b in (a : a', b')

   120         Right (a, new_b) -> let (a', b') = unfoldrE f new_b in (a : a', b')

   120         Left new_b       -> ([], new_b)

   121         Left new_b       -> ([], new_b)

   121 

   122 

   122 showB :: Show a => a -> B.ByteString

   123 showB :: Show a => a -> B.ByteString

   123 showB = B.pack .show

   124 showB = B.pack .show