import Control.Monad.Trans
import qualified Data.ByteString.Lazy as Lazy (ByteString, pack)
import qualified Data.ByteString.Lazy.Char8 as L8 hiding (ByteString)
import Control.Monad.Trans
import qualified Data.ByteString.Lazy as Lazy (ByteString, pack)
import qualified Data.ByteString.Lazy.Char8 as L8 hiding (ByteString)
let (bin, cType) = case cTypeM of
Just (MIMEType "application" "x-rakka-base64-stream" _)
let (bin, cType) = case cTypeM of
Just (MIMEType "application" "x-rakka-base64-stream" _)