module IHP.IDE.SchemaDesigner.View.Migrations.Edit where import IHP.ViewPrelude import IHP.SchemaMigration import IHP.IDE.ToolServer.Types import IHP.IDE.ToolServer.Routes () data EditView = EditView { EditView -> Migration migration :: Migration , EditView -> Text sqlStatements :: !Text } instance View EditView where html :: (?context::ControllerContext, ?view::EditView) => EditView -> Html html EditView { Text Migration $sel:migration:EditView :: EditView -> Migration $sel:sqlStatements:EditView :: EditView -> Text migration :: Migration sqlStatements :: Text .. } = [hsx| <div class="container pt-5"> <div class="migration pending"> {renderForm migration sqlStatements} </div> </div> |] renderForm :: Migration -> Text -> Html renderForm :: Migration -> Text -> Html renderForm Migration migration Text sqlStatements = [hsx| <form method="POST" action={UpdateMigrationAction (migration.revision)}> <div class="form-group" id="form-group-migration_sqlStatements"> <textarea name="sqlStatements" placeholder="" id="migration_sqlStatements" class="form-control">{sqlStatements}</textarea> </div> <div id="migration_sqlStatements_ace"/> <button class="btn btn-primary" data-toggle="tooltip" data-placement="right" title="⌘ Enter" >Save Migration</button> </form> |]