Here the updated baseImgD in templateRenderCanvas will not fire

Sample.hs

templateRenderImages cnvRef qrcInfoD imgInfo = do
  qrcInfo <- sample $ current qrcInfoD
  imgRef <- liftIO $ canvasDisplay cnvRef imgInfo
  qrcRef <- liftIO $ canvasDisplay cnvRef qrcInfo
  liftIO $ canvasAddChild cnvRef imgRef
  liftIO $ imageAddChild imgRef qrcRef
  

templateRenderCanvas qrcInfoD baseImgD cnvRef = do
  widgetHold (text "Creating base image ...") $ do
    fmap (templateRenderImages cnvRef qrcInfoD) (updated baseImgD)
  return ()

--templateCanvas :: (MonadWidget t m) => TemplateForm t -> m (TemplateCanvas t)
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
  let cnvInfoE = tag (constant defaultCanvasInfo) (updated baseImgD)
  cnvRefE <- mkCanvas cnvInfoE

  widgetHold (text "Creating canvas ...") $
    fmap (templateRenderCanvas baseImgD qrcImgD) cnvRefE