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

ad-si · Mar 14, 2024 · 033eb43 · 033eb43
1 parent 9cb8fa3
commit 033eb43
Showing 1 changed file with 2 additions and 1 deletion.
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