Use of canvas

Template.hs

templateCanvas :: (MonadWidget t m) => TemplateForm t -> m ()
templateCanvas tf = do
  baseImgD <- mkImageInfo (fileInfo tf) defaultImageInfo
  qrcImgD <- mkQRImageInfo (updated baseImgD)

  display baseImgD
  display qrcImgD

  -- Only ever fire cnvInfo once
  cnvInfoE <- onceE $ tag (constant defaultCanvasInfo) (updated baseImgD)
  cnvRefD <- mkCanvas cnvInfoE

  baseImgRefD <- canvasDisplay cnvRefD baseImgD
  qrcImgRefD <- canvasDisplay cnvRefD qrcImgD

  canvasAddChild cnvRefD baseImgRefD
  imageAddChild baseImgRefD qrcImgRefD

--  let qrcInitE = tag (constant "0") (updated qrcImgD)
--  qrcXInput <- templateQrcXInput qrcInitE
--  qrcYInput <- templateQrcYInput qrcInitE

  --let qrcXD = _textInput_value qrcXInput
  --let qrcYD = _textInput_value qrcYInput

--  qrcCoordsD <- combineDyn parseInts qrcXD qrcYD
  
--  moveTo qrcImgRefB qrcCoordsD

--  return $ TemplateCanvas qrcXInput qrcYInput qrcCoordsD
  return ()
  where
    parseInts x y = (readInt x, readInt y)