/
Edit.hs
42 lines (38 loc) 路 1.56 KB
/
Edit.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
module IHP.IDE.SchemaDesigner.View.Enums.Edit where
import IHP.ViewPrelude
import IHP.IDE.SchemaDesigner.Types
import IHP.IDE.ToolServer.Types
import IHP.IDE.SchemaDesigner.View.Layout
data EditEnumView = EditEnumView
{ statements :: [Statement]
, enumName :: Text
, enumId :: Int
}
instance View EditEnumView where
html EditEnumView { .. } = [hsx|
<div class="row no-gutters bg-white" id="schema-designer-viewer">
{renderObjectSelector (zip [0..] statements) Nothing}
{emptyColumnSelectorContainer}
</div>
{migrationStatus}
{renderModal modal}
|]
where
modalContent = [hsx|
<form method="POST" action={UpdateEnumAction}>
<input type="hidden" name="enumId" value={tshow enumId}/>
<div class="form-group row">
<label class="col-sm-2 col-form-label">Name:</label>
<div class="col-sm-10">
<input id="nameInput" name="enumName" type="text" class="form-control" autofocus="autofocus" value={enumName}/>
</div>
</div>
<div class="text-right">
<button type="submit" class="btn btn-primary">Edit Table</button>
</div>
</form>
|]
modalFooter = mempty
modalCloseUrl = pathTo TablesAction
modalTitle = "Edit Enum"
modal = Modal { modalContent, modalFooter, modalCloseUrl, modalTitle }