mateamt/app/Janitor.hs
2019-10-28 05:47:25 +01:00

17 lines
311 B
Haskell

{-# 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))