makeOrderDialog :: WithModel => (OrderDialog -> IO a) -> IO OrderDialog
makeOrderDialog =
  makeEditorDialog [(stockApply, ResponseApply)] makeOrderView
makeOrderDialog :: WithModel => (OrderDialog -> IO a) -> IO OrderDialog
makeOrderDialog =
  makeEditorDialog [(stockApply, ResponseApply)] makeOrderView
makeOrderDialog =
  makeEditorDialog [(stockApply, ResponseApply)] makeOrderView