Commit c3745528

commit c3745528bc770e263529459392bdcf56687fa1c7
Author: Ben Sima <ben@bensima.com>
Date:   Wed Nov 26 13:35:29 2025

    Jr: Sequential task IDs
    
    All tests pass. The implementation is complete:
    
    **Summary of changes:** 1. Removed sqids dependency from
    `Omni/Task/Core.hs`, `Omni/Task.hs`, an 2. Changed `generateId` in
    `Omni/Task/Core.hs` to produce simple sequent 3. Removed the now-unused
    `sqidsOptions` configuration and `Web.Sqids` i
    
    Task-Id: t-1o2g8gu9y2z

diff --git a/Omni/Jr.hs b/Omni/Jr.hs
index 8200be5c..3ddb3b19 100644
--- a/Omni/Jr.hs
+++ b/Omni/Jr.hs
@@ -4,7 +4,6 @@
 
 -- : out jr
 -- : dep sqlite-simple
--- : dep sqids
 -- : dep warp
 -- : dep servant-server
 -- : dep lucid
diff --git a/Omni/Task.hs b/Omni/Task.hs
index 83b8e0d1..3f21b809 100644
--- a/Omni/Task.hs
+++ b/Omni/Task.hs
@@ -5,7 +5,6 @@
 
 -- : out task
 -- : dep sqlite-simple
--- : dep sqids
 -- : modified by benign worker
 module Omni.Task where
 
diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs
index bf52c2c5..a68f37b0 100644
--- a/Omni/Task/Core.hs
+++ b/Omni/Task/Core.hs
@@ -3,7 +3,6 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 
--- : dep sqids
 -- : dep http-api-data
 module Omni.Task.Core where
 
@@ -24,7 +23,6 @@ import System.Directory (createDirectoryIfMissing, doesFileExist)
 import System.Environment (lookupEnv)
 import System.IO.Unsafe (unsafePerformIO)
 import Web.HttpApiData (FromHttpApiData (..))
-import qualified Web.Sqids as Sqids
 
 -- Core data types
 data Task = Task
@@ -290,23 +288,11 @@ initTaskDb = do
       \ reason TEXT NOT NULL \
       \)"
 
--- Sqids configuration: lowercase alphabet only, minimum length 8
-sqidsOptions :: Sqids.SqidsOptions
-sqidsOptions =
-  Sqids.defaultSqidsOptions
-    { Sqids.alphabet = "abcdefghijklmnopqrstuvwxyz0123456789",
-      Sqids.minLength = 8,
-      Sqids.blocklist = []
-    }
-
--- Generate a short ID using sqids with sequential counter
+-- Generate a sequential task ID (t-1, t-2, t-3, ...)
 generateId :: IO Text
 generateId = do
   counter <- getNextCounter
-  let encoded = case Sqids.runSqids sqidsOptions (Sqids.encode [counter]) of
-        Left _ -> "00000000"
-        Right sqid -> sqid
-  pure <| "t-" <> encoded
+  pure <| "t-" <> T.pack (show counter)
 
 -- Get the next counter value (atomically increments)
 getNextCounter :: IO Int