Fix missing notes icon by returning a Just [] when notes exist

ad-si · Mar 14, 2024 · e5a4640 · e5a4640
1 parent 9cb8fa3
commit e5a4640
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/tasklite-core/source/FullTask.hs b/tasklite-core/source/FullTask.hs
@@ -127,7 +127,8 @@ instance FromRow FullTask where
         ( \value -> case fieldData value of
             SQLText _txt ->
               -- TODO: Parse notes as a JSON array
-              Ok Nothing
+              -- Must return a `Just` to signal that notes exist
+              Ok (Just [])
             SQLNull -> Ok Nothing
             val ->
               Errors

diff --git a/tasklite-core/test/Spec.hs b/tasklite-core/test/Spec.hs
@@ -358,7 +358,7 @@ testSuite conf now = do
                     `shouldBe` emptyFullTask
                       { FullTask.body = "Just a test"
                       , -- TODO: Fix after notes are returned as a JSON array
-                        FullTask.notes = Nothing
+                        FullTask.notes = Just []
                       , FullTask.priority = Just 1.0
                       , FullTask.metadata = decode jsonTask
                       }