tions QRC.M) QRC.Utf8WithoutECI input


encodeStringQRCodeJpeg :: (QRC.ToText a) => Int -> a -> LB.ByteString
encodeStringQRCodeJpeg pixelPerCell input =
    P.imageToJpg 100 . P.ImageY8 $ encodeStringQRCodeImage pixelPerCell input


encodeStringQRCodePng :: (QRC.ToText a) => Int -
unifyExcHandler :: (Show e, Monad m)
                => ExcSafe.Handler m (Either e a)
                -> ExcSafe.Handler m (Either String a)
unifyExcHandler =
#if MIN_VERSION_classy_prelude(1, 0, 0)
  \ (ExcSafe.Handler f) -> ExcSafe.Handler $ fmap (either (Left . show) Right) . f
unifyExcHandler =
#if MIN_VERSION_classy_prelude(1, 0, 0)
  \ (ExcSafe.Handler f) -> ExcSafe.Handler $ fmap (either (Left . show) Right) . f