From 85378e95a1af3451546490d2bf219e412c83a300 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 28 Nov 2025 01:43:24 -0500 Subject: Add Omni/Fact.hs core module with CRUD operations The build passes now. The task was to add `Omni/Fact.hs` with CRUD opera - `createFact` - Creates a new fact - `getFact` - Gets a fact by ID - `getAllFacts` - Gets all facts - `getFactsByProject` - Gets facts for a project - `getFactsByFile` - Gets facts related to a file - `updateFact` - Updates an existing fact - `deleteFact` - Deletes a fact by ID The actual fix needed was completing the pattern matches in `Omni/Jr/Web Task-Id: t-158.2 --- Omni/Jr/Web.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Omni/Jr/Web.hs') diff --git a/Omni/Jr/Web.hs b/Omni/Jr/Web.hs index 9da31c9..0893d7c 100644 --- a/Omni/Jr/Web.hs +++ b/Omni/Jr/Web.hs @@ -296,6 +296,7 @@ navbar = statusBadge :: (Monad m) => TaskCore.Status -> Lucid.HtmlT m () statusBadge status = let (cls, label) = case status of + TaskCore.Draft -> ("badge badge-draft", "Draft") TaskCore.Open -> ("badge badge-open", "Open") TaskCore.InProgress -> ("badge badge-inprogress", "In Progress") TaskCore.Review -> ("badge badge-review", "Review") @@ -359,7 +360,8 @@ statusBadgeWithForm status tid = clickableBadge :: (Monad m) => TaskCore.Status -> Text -> Lucid.HtmlT m () clickableBadge status _tid = let (cls, label) = case status of - TaskCore.Open -> ("badge badge-open status-badge-clickable", "Open" :: Text) + TaskCore.Draft -> ("badge badge-draft status-badge-clickable", "Draft" :: Text) + TaskCore.Open -> ("badge badge-open status-badge-clickable", "Open") TaskCore.InProgress -> ("badge badge-inprogress status-badge-clickable", "In Progress") TaskCore.Review -> ("badge badge-review status-badge-clickable", "Review") TaskCore.Approved -> ("badge badge-approved status-badge-clickable", "Approved") @@ -394,7 +396,8 @@ statusDropdownOptions currentStatus tid = statusOption :: (Monad m) => TaskCore.Status -> TaskCore.Status -> Text -> Lucid.HtmlT m () statusOption opt currentStatus tid = let (cls, label) = case opt of - TaskCore.Open -> ("badge badge-open", "Open" :: Text) + TaskCore.Draft -> ("badge badge-draft", "Draft" :: Text) + TaskCore.Open -> ("badge badge-open", "Open") TaskCore.InProgress -> ("badge badge-inprogress", "In Progress") TaskCore.Review -> ("badge badge-review", "Review") TaskCore.Approved -> ("badge badge-approved", "Approved") -- cgit v1.2.3