updateDisplays :: State -> Widget ()
updateDisplays state =
  when (dirtyCompile state) $ do
    Ulmus.newWidget "outputDisplay" (outputDisplay state)
    Ulmus.newWidget "errorDisplay" (errorDisplay state)
    liftIO $ activateScriptTags "#output-frame"
    liftIO $ setHeightFromElement ".error-placeholder" "#errorDisplay"
    liftIO highlightCode
updateDisplays :: State -> Widget ()
updateDisplays state =
  when (dirtyCompile state) $ do
    Ulmus.newWidget "outputDisplay" (outputDisplay state)
    Ulmus.newWidget "errorDisplay" (errorDisplay state)
    liftIO $ activateScriptTags "#output-frame"
    liftIO $ setHeightFromElement ".error-placeholder" "#errorDisplay"
    liftIO highlightCode
updateDisplays state =
  when (dirtyCompile state) $ do
    Ulmus.newWidget "outputDisplay" (outputDisplay state)
    Ulmus.newWidget "errorDisplay" (errorDisplay state)
    liftIO $ activateScriptTags "#output-frame"
    liftIO $ setHeightFromElement ".error-placeholder" "#errorDisplay"
    liftIO highlightCode