diff options
| author | Ben Sima <ben@bensima.com> | 2025-11-28 01:43:24 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bensima.com> | 2025-11-28 01:43:24 -0500 |
| commit | 85378e95a1af3451546490d2bf219e412c83a300 (patch) | |
| tree | 88f43fba41b0028964fb5eedd5d96dadd8af564e /Omni/Jr/Web.hs | |
| parent | 6e9031df1dc90efda8ab0eb8aa526dec8deec256 (diff) | |
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
Diffstat (limited to 'Omni/Jr/Web.hs')
| -rw-r--r-- | Omni/Jr/Web.hs | 7 |
1 files changed, 5 insertions, 2 deletions
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") |