diff options
Diffstat (limited to 'Omni/Jr/Web/Pages.hs')
| -rw-r--r-- | Omni/Jr/Web/Pages.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/Omni/Jr/Web/Pages.hs b/Omni/Jr/Web/Pages.hs index 2fbbc00..b3cc8ea 100644 --- a/Omni/Jr/Web/Pages.hs +++ b/Omni/Jr/Web/Pages.hs @@ -18,7 +18,7 @@ import qualified Lucid.Base as Lucid import Numeric (showFFloat) import Omni.Jr.Web.Components ( Breadcrumb (..), - complexityBadge, + complexityBadgeWithForm, metaSep, multiColorProgressBar, pageBody, @@ -567,11 +567,8 @@ instance Lucid.ToHtml TaskDetailPage where statusBadgeWithForm (TaskCore.taskStatus task) (TaskCore.taskId task) metaSep priorityBadgeWithForm (TaskCore.taskPriority task) (TaskCore.taskId task) - case TaskCore.taskComplexity task of - Nothing -> pure () - Just c -> do - metaSep - complexityBadge c + metaSep + complexityBadgeWithForm (TaskCore.taskComplexity task) (TaskCore.taskId task) case TaskCore.taskNamespace task of Nothing -> pure () Just ns -> do |