Here the updated baseImgD in templateRenderCanvas will not fire

Sample.hs

templateRenderCanvas qrcInfoD cnvInfo newBaseImage initialBaseImage = do
  cnvRef <- liftIO $ mkCanvas' cnvInfo
  
  qrcInfo <- sample $ current qrcInfoD
  imgRef <- liftIO $ canvasDisplay cnvRef imgInfo
  qrcRef <- liftIO $ canvasDisplay cnvRef qrcInfo
  liftIO $ canvasAddChild cnvRef imgRef
  liftIO $ imageAddChild imgRef qrcRef
  
  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

  (firstBaseImg, laterBaseImgs) <- headTailE $ updated baseImgD
  widgetHold (text "Please select a base image") $
    fmap (templateRenderCanvas qrcImgD defaultCanvasInfo laterBaseImgs) firstBaseImg