   -> a
                        -> (P.Image P.Pixel8)
encodeStringQRCodeImage pixelPerCell input =
  QRJP.toImage 4 pixelPerCell $ fromMaybe (error "QRC.encodeTEx
parseMsgErrorToString :: Either YamlFileParseException a -> Either String a
parseMsgErrorToString (Left err)    = Left $ "failed to parse from file: " ++ show err
parseMsgErrorToString (Left err)    = Left $ "failed to parse from file: " ++ show err