outputDisplay :: State -> Widget ()
outputDisplay state = rawHtml $
  div ! id "output-frame" $ noHtml `setContents` compiledOutput state
outputDisplay :: State -> Widget ()
outputDisplay state = rawHtml $
  div ! id "output-frame" $ noHtml `setContents` compiledOutput state
outputDisplay state = rawHtml $
  div ! id "output-frame" $ noHtml `setContents` compiledOutput state