                      -> m FileContentAndMime
saveWreqResponseContentAndMime h r = liftIO $ do
    LB.hPut h $ S.encodeLazy dat
    return dat
    where
        dat  = (body, mime)
        bo
encodeStringQRCodeJpeg :: (QRC.ToText a) => Int -> a -> LB.ByteString
encodeStringQRCodeJpeg pixelPerCell input =
    P.imageToJpg 100 . P.ImageY8 $ encodeStringQRCodeImage pixelPerCell input
encodeStringQRCodeJpeg pixelPerCell input =
    P.imageToJpg 100 . P.ImageY8 $ encodeStringQRCodeImage pixelPerCell input