},
    "kjua": {
      "version": "0.9.0",
      "resolved": "https://registry.npmjs.org/kjua/-/kjua-0.9.0.tgz",
      "integrity": "sha512-Wmh5k6hpl+wiYkcEIx0/Ocj1DOxacw/myh/SQ3NbY0RWD4360CXaaAJkdeeV+moqf7fxvACYK95LXQ8vtLWKxA=="

    "qrious": {
      "version": "4.0.2",
      "resolved": "https://registry.npmjs.org/qrious/-/qrious-4.0.2.tgz",
      "integrity": "sha512-xWPJIrK1zu5Ypn898fBp8RHkT/9ibquV2Kv24S/JY9VYEhMBMKur1gHVsOiNUh7PHP9uCgejjpZUHUIXXKoU/g=="
    },

    "kjua": "^0.9.0",

    "qrious": "^4.0.2",

      annually = traverse (map \(_ :: Unit) -> Annually) (obj .:? "annually")

      annually = traverse (map \(_ :: Json) -> Annually) (obj .:? "annually")

      onetime =  traverse (map \(_ :: Unit) -> OneTime) (obj .:? "onetime")

      onetime =  traverse (map \(_ :: Json) -> OneTime) (obj .:? "onetime")

import Control.Monad.State.Class (get)

-- import Control.Monad.State.Class (get)

-- import Data.Traversable (traverse_)
import Data.Unfoldable as U

import Data.Traversable (traverse_)

type QrState = Maybe PaymentRequest

type QrInput = Maybe PaymentRequest
type QrState = 
  { req :: Maybe PaymentRequest
  , dataUrl :: Maybe String
  }

  H.Component HH.HTML QrQuery (Maybe PaymentRequest) output m

  H.Component HH.HTML QrQuery QrInput output m

  initialState :: Maybe PaymentRequest -> Maybe PaymentRequest
  initialState input = input

  initialState :: QrInput -> QrState
  initialState input = 
    { req: input, dataUrl: Nothing }

        [ HH.div [P.id_ "paymentRequestQRCode"] []
        ]

        ((\url -> HH.img [P.src url]) <$> U.fromMaybe st.dataUrl)

      lift $ renderQR r

      dataUrl <- lift $ renderQR r
      H.modify_ (_ { dataUrl = Just dataUrl })

  handleAction = case _ of
    QrInit -> do
      traverse_ (lift <<< renderQR) =<< get

  handleAction _ = pure unit

  renderQR :: PaymentRequest -> m Unit

  renderQR :: PaymentRequest -> m String

    system.renderQR "paymentRequestQRCode" { text: r.native_request.zip321_request }

    system.renderQR { value: r.native_request.zip321_request, size: 300 }

exports.renderQRInternal = selector => content => () => {
  $('#' + selector).kjua(content)
}
require("kjua")

module Aftok.HTML.KjuaQR 
  ( QRType(..)
  , QROpts
  , renderQR
  )
  where
import Prelude
import Effect (Effect)
data QRType
  = Canvas
  | Image
  | SVG
data ErrorCorrection = L | M | Q | H
renderQR :: String -> QROpts -> Effect Unit
renderQR = renderQRInternal
type QROpts = 
  }
--     -- render method: 'canvas', 'image' or 'svg'
--     render :: QRType,
--     -- render pixel-perfect lines
--     crisp :: Boolean,
--     -- minimum version: 1..40
--     minVersion :: Int,
--     -- error correction level: 'L', 'M', 'Q' or 'H'
--     ecLevel :: ErrorCorrection,
--     -- size in pixel: 200
--     size :: Int,
--     -- pixel-ratio, null for devicePixelRatio
--     -- ratio :: null,
-- 
--     --code color: '#333',
--     fill :: String -- hack, fine for now
--     -- background color '#fff'
--     back :: String,
-- 
--     -- content
--     text :: String,
-- 
--     -- roundend corners in pc: 0..100
--     rounded: Int,
-- 
--     -- quiet zone in modules: 0
--     quiet: Int,
-- 
--     -- modes: 'plain', 'label' or 'image'
--     mode: 'plain',
-- 
--     -- label/image size and pos in pc: 0..100
--     mSize: 30,
--     mPosX: 50,
--     mPosY: 50,
-- 
--     -- label
--     label: 'no label',
--     fontname: 'sans',
--     fontcolor: '#333',
-- 
--     -- image element
--     image: null
-- 
-- type QROptsInternal = 
--   {
--     -- render method: 'canvas', 'image' or 'svg'
--     render :: String,
-- 
--     -- render pixel-perfect lines
--     crisp :: Boolean,
-- 
--     -- minimum version: 1..40
--     minVersion :: Int
-- 
--     -- error correction level: 'L', 'M', 'Q' or 'H'
--     ecLevel: 'L',
-- 
--     -- size in pixel
--     size: 200,
-- 
--     -- pixel-ratio, null for devicePixelRatio
--     ratio: null,
-- 
--     -- code color
--     fill: '#333',
-- 
--     -- background color
--     back: '#fff',
-- 
--     -- content
--     text: 'no text',
-- 
--     -- roundend corners in pc: 0..100
--     rounded: 0,
-- 
--     -- quiet zone in modules
--     quiet: 0,
-- 
--     -- modes: 'plain', 'label' or 'image'
--     mode: 'plain',
-- 
--     -- label/image size and pos in pc: 0..100
--     mSize: 30,
--     mPosX: 50,
--     mPosY: 50,
-- 
--     -- label
--     label: 'no label',
--     fontname: 'sans',
--     fontcolor: '#333',
-- 
--     -- image element
--     image: null
-- 
-- 
--   }
foreign import renderQRInternal :: String -> QROpts -> Effect Unit
  { text :: String

var QRious = require('qrious');
exports.renderQRInternal = options => () => {
  var qrious = new QRious(options);
  return qrious.toDataURL();
}

module Aftok.HTML.QRious
  ( renderQR
  , QROpts
  )
  where
import Effect (Effect)
renderQR :: QROpts -> Effect String
renderQR = renderQRInternal
type QROpts = 
  { value :: String
  , size :: Int
  }
foreign import renderQRInternal :: QROpts -> Effect String

import Aftok.HTML.KjuaQR as KjuaQR

import Aftok.HTML.QRious as QRious

    , renderQR :: String -> KjuaQR.QROpts -> m Unit

    , renderQR :: QRious.QROpts -> m String

  , renderQR: \i opts -> liftEffect (KjuaQR.renderQR i opts)

  , renderQR: \opts -> liftEffect (QRious.renderQR opts)