blob: b2b294cd92fa1d13aeb1152a7ebbc220593acdd9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
<div .table>
<div .tr .sepBelow>
<div .th>Description
<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 Entity referenceId Reference{..} <- reference
<div .tr .color ##{toPathPiece referenceId}>
<div .kind>#{referenceKind}
<form .td method=post action=@{DeleteRefItemR referenceId}>
<button type=submit>
Delete
|
