From 4918015dbd2f69bd022b57b3217336a14d783436 Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Sat, 18 Mar 2017 15:16:01 +0100
Subject: [PATCH] fix typo in a class name

---
 Handler/Tables.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Handler/Tables.hs b/Handler/Tables.hs
index 6f4092c..6058973 100644
--- a/Handler/Tables.hs
+++ b/Handler/Tables.hs
@@ -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))