When exporting data with csv/json/ndjson include a created_utc field

Author: ad-si

tasklite-core/source/FullTask.hs

@@ -6,7 +6,7 @@ Data type to represent tasks from the `tasks_view`
 module FullTask where
 
 import Protolude (
-  Applicative ((<*>)),
+  Applicative (pure, (<*>)),
   Either (Left, Right),
   Eq,
   Float,
@@ -69,12 +69,14 @@ import Task (
   TaskState,
   emptyTask,
  )
+import Utils (ulidText2utc)
 
 
 -- | Final user-facing format of tasks
 data FullTask = FullTask
   { ulid :: Text -- TODO: Use Ulid type
   , body :: Text
+  , created_utc :: Maybe Text
   , modified_utc :: Text
   , awake_utc :: Maybe Text
   , ready_utc :: Maybe Text
@@ -116,25 +118,26 @@ parseJsonArrayField fieldName value = case fieldData value of
 
 -- For conversion from SQLite with SQLite.Simple
 instance FromRow FullTask where
-  fromRow =
-    FullTask
-      <$> field
-      <*> field
-      <*> field
-      <*> field
-      <*> field
-      <*> field
-      <*> field
-      <*> field
-      <*> field
-      <*> field
-      <*> field
-      <*> field
-      <*> field
+  fromRow = do
+    ulidValue <- field
+    FullTask ulidValue
+      <$> field -- body
+      <*> pure (ulidText2utc ulidValue) -- created_utc (derived from ULID)
+      <*> field -- modified_utc
+      <*> field -- awake_utc
+      <*> field -- ready_utc
+      <*> field -- waiting_utc
+      <*> field -- review_utc
+      <*> field -- due_utc
+      <*> field -- closed_utc
+      <*> field -- state
+      <*> field -- group_ulid
+      <*> field -- repetition_duration
+      <*> field -- recurrence_duration
       <*> fieldWith (parseJsonArrayField "tags")
       <*> fieldWith (parseJsonArrayField "notes")
-      <*> field
-      <*> field
+      <*> field -- priority
+      <*> field -- user
       <*> ( field <&> \case
               Just (Object obj) -> Just $ Object obj
               _ -> Nothing
@@ -174,6 +177,7 @@ emptyFullTask =
   FullTask
     { ulid = ""
     , body = ""
+    , created_utc = Nothing
     , modified_utc = ""
     , awake_utc = Nothing
     , ready_utc = Nothing

tasklite-core/source/ImportTask.hs

@@ -90,6 +90,7 @@ import Utils (
   parseUtcNum,
   setDateTime,
   toUlidTime,
+  ulidText2utc,
   zeroTime,
   zeroUlidTxt,
  )
@@ -487,6 +488,7 @@ importTaskToFullTask ImportTask{task, notes, tags} =
   FullTask.FullTask
     { FullTask.ulid = task.ulid
     , FullTask.body = task.body
+    , FullTask.created_utc = ulidText2utc task.ulid
     , FullTask.modified_utc = task.modified_utc
     , FullTask.awake_utc = task.awake_utc
     , FullTask.ready_utc = task.ready_utc

tasklite-core/test/ImportExportSpec.hs

@@ -166,6 +166,7 @@ spec = do
                       _ -> ""
                 updatedTask
                   { FullTask.ulid = ""
+                  , FullTask.created_utc = Nothing
                   , FullTask.modified_utc = ""
                   , FullTask.user = ""
                   }
@@ -653,6 +654,7 @@ spec = do
           \\"awake_utc\":null,\
           \\"body\":\"Buy milk\",\
           \\"closed_utc\":null,\
+          \\"created_utc\":\"2024-11-18 14:14:07.491\",\
           \\"due_utc\":null,\
           \\"group_ulid\":null,\
           \\"metadata\":null,\

tasklite-core/test/LibSpec.hs

@@ -374,6 +374,7 @@ spec = do
           updatedTask `shouldSatisfy` (\task -> task.user /= "")
           updatedTask
             { FullTask.ulid = ""
+            , FullTask.created_utc = Nothing
             , FullTask.modified_utc = ""
             , FullTask.user = ""
             }
@@ -396,6 +397,7 @@ spec = do
           updatedTask `shouldSatisfy` (\task -> task.user /= "")
           updatedTask
             { FullTask.ulid = ""
+            , FullTask.created_utc = Nothing
             , FullTask.modified_utc = ""
             , FullTask.user = ""
             }

tasklite-core/test/TypesSpec.hs

@@ -147,6 +147,7 @@ spec = do
               awake_utc: null
               body: Sample task
               closed_utc: null
+              created_utc: null
               due_utc: null
               group_ulid: null
               metadata: null