module IHP.IDE.Data.View.ShowDatabase where import IHP.ViewPrelude import IHP.IDE.ToolServer.Types import IHP.IDE.Data.View.Layout data ShowDatabaseView = ShowDatabaseView { tableNames :: [Text] } instance View ShowDatabaseView where html ShowDatabaseView { .. } = [hsx|
{headerNav}
{renderTableSelector tableNames ""}
|] renderTableSelector :: [Text] -> Text -> Html renderTableSelector tableNames activeTableName = [hsx|
Tables
{forEach tableNames renderTable}
Right click to open context menu
|] where renderTable :: Text -> Html renderTable name = [hsx| contextMenuId <> "'); event.stopPropagation();"} > {name} |] where contextMenuId = "context-menu-table-" <> name