module IHP.IDE.SchemaDesigner.View.Tables.Index where import IHP.ViewPrelude import IHP.IDE.SchemaDesigner.Types import IHP.IDE.SchemaDesigner.View.Layout data IndexView = IndexView { IndexView -> [Statement] statements :: [Statement] } instance View IndexView where html :: (?context::ControllerContext, ?view::IndexView) => IndexView -> Html html IndexView { [Statement] $sel:statements:IndexView :: IndexView -> [Statement] statements :: [Statement] .. } = [hsx| {renderFlashMessages} {modal} <div class="row no-gutters bg-white" id="schema-designer-viewer"> {renderObjectSelector (zip [0..] statements) Nothing} {emptyColumnSelectorContainer} </div> |]