mateamt/app/Janitor.hs

17 lines
311 B
Haskell
Raw Normal View History

2019-10-28 04:47:25 +00:00
{-# 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))