= r ^. responseBody
        mime = fromMaybe defaultMimeType $ r ^? responseHeader "Content-Type"

loadWreqResponseContentAndMime :: (MonadIO m)
                                => Handl
encodeStringQRCodePng :: (QRC.ToText a) => Int -> a -> LB.ByteString
encodeStringQRCodePng pixelPerCell input =
    P.imageToPng . P.ImageY8 $ encodeStringQRCodeImage pixelPerCell input
encodeStringQRCodePng pixelPerCell input =
    P.imageToPng . P.ImageY8 $ encodeStringQRCodeImage pixelPerCell input