I'm scruffy. The janitor.

app/Janitor.hs

@@ -0,0 +1,16 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Janitor where
+
+import qualified Data.Set as S
+
+forkCleanProcess :: IO ()
+forkCleanProcess =
+  return()
+
+cleanProcess conn store =
+  return ()
+
+cleanStore store =
+  now <- getCurrentTime
+  atomically $
+    modifyTVar store (S.filter (\(Ticket _ _ exp _) -> exp >= now))

mateamt.cabal

@@ -24,6 +24,7 @@ executable mateamt
   main-is:             Main.hs
   other-modules:       AppTypes
                      , AppTypes.Configuration
+                     , Janitor
   -- other-extensions:
   build-depends:       base ^>=4.12.0.0
                      , mateamt