Deduplicate tags before inserting them

tasklite-core/source/Lib.hs

@@ -93,6 +93,7 @@ import Protolude qualified as P
 import Control.Arrow ((>>>))
 import Data.Aeson as Aeson (KeyValue ((.=)), encode, object)
 import Data.Coerce (coerce)
+import Data.List (nub)
 import Data.Generics (Data, constrFields, toConstr)
 import Data.Hourglass (
   DateTime (dtTime),
@@ -369,7 +370,8 @@ updateTask connection task = do
 
 insertTags :: Connection -> Maybe DateTime -> Task -> [Text] -> IO ()
 insertTags connection mbCreatedUtc task tags = do
-  taskToTags <- forM tags $ \tag -> do
+  let uniqueTags = nub tags
+  taskToTags <- forM uniqueTags $ \tag -> do
     tagUlid <- getULID
     pure $
       TaskToTag

tasklite-core/test/Spec.hs

@@ -309,6 +309,27 @@ testSuite conf now = do
                 }
           _ -> P.die "More than one task found"
 
+    it "deduplicates tags when adding a task" $ do
+      withMemoryDb conf $ \memConn -> do
+        _ <- addTask conf memConn ["Buy milk +drink +drink"]
+        (tasks :: [FullTask]) <- query_ memConn "SELECT * FROM tasks_view"
+        case tasks of
+          [updatedTask] -> do
+            updatedTask `shouldSatisfy` (\task -> task.ulid /= "")
+            updatedTask `shouldSatisfy` (\task -> task.modified_utc /= "")
+            updatedTask `shouldSatisfy` (\task -> task.user /= "")
+            updatedTask
+              { FullTask.ulid = ""
+              , FullTask.modified_utc = ""
+              , FullTask.user = ""
+              }
+              `shouldBe` emptyFullTask
+                { FullTask.body = "Buy milk"
+                , FullTask.priority = Just 2.0
+                , FullTask.tags = Just ["drink"]
+                }
+          _ -> P.die "More than one task found"
+
     it "logs a task" $ do
       withMemoryDb conf $ \memConn -> do
         result <- logTask conf memConn ["Just a test"]