blob: 414a3ece356029450baa4904c16a145257654ab1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
<div .table>
<div .tr .sepBelow>
<div .th>Item
<div .th>Type
<div .th>Actions
$if isJust (preview insertForm =<< formState)
$with Just InsertForm{..} <- formState
<form .tr .sepBelow action=@{ReferenceListingR} method=post enctype=#{fsInsertEncoding}>
^{fsInsertForm}
<div .td>
<button type=submit>
Insert
$forall WithType (Entity referenceId Reference{..}) referenceType <- reference
<div .tr .color ##{toPathPiece referenceId}>
<div .kind>#{referenceKind}
<div .type>#{referenceType}
<form .td method=post action=@{DeleteRefItemR referenceId}>
<button type=submit>
Delete
|
