fix typo in a class name

This commit is contained in:
Filip Gralinski 2017-03-18 15:16:01 +01:00
parent 2661fda4f8
commit 4918015dbd

View File

@ -43,7 +43,7 @@ descriptionCell = Table.widget "description" (
#{submissionDescription s}
$forall (Entity _ v) <- tagEnts
\ <span class="labal label-primary">#{tagName v}</span>
\ <span class="label label-primary">#{tagName v}</span>
|])
-- Table.text "description" (submissionDescription . (\(Entity _ s, _, _, _) -> s))