splitStreamE :: Monad m => E.Enumeratee BSU.ByteString String m b
splitStreamE iter =
    EB.splitWhen (==13 {- '\r' -})
        =$ EL.map BSU.toString
        =$ EL.map removeInitialNewline
        =$ EL.filter (/="") iter
  where
    removeInitialNewline ('\n':cs) = cs
    removeInitialNewline cs        = cs

--
-- | Twitter OAuth handler
--
splitStreamE :: Monad m => E.Enumeratee BSU.ByteString String m b
splitStreamE iter =
    EB.splitWhen (==13 {- '\r' -})
        =$ EL.map BSU.toString
        =$ EL.map removeInitialNewline
        =$ EL.filter (/="") iter
  where
    removeInitialNewline ('\n':cs) = cs
    removeInitialNewline cs        = cs

--
-- | Twitter OAuth handler
--
splitStreamE iter =
    EB.splitWhen (==13 {- '\r' -})
        =$ EL.map BSU.toString
        =$ EL.map removeInitialNewline
        =$ EL.filter (/="") iter
  where
    removeInitialNewline ('\n':cs) = cs
    removeInitialNewline cs        = cs

--
-- | Twitter OAuth handler
--