gistfile1.hs

main :: IO ()
main = do
    putStrLn "Init sessions..."
    ctx <- newDbContext viewKeys
    sd  <- loadSessionData ctx
    st  <- initState ctx $ sessionsFromList sd

    let reloadSessions = do
        putStrLn "Reload sessions"
--        ctx' <- newDbContext viewKeys
--        sd'  <- loadSessionData ctx'
--        updateSessionsToState st $ sessionsFromList [] 

    putStrLn "Init cron..."
    withThread (Cron.cron 5 reloadSessions) $ do
        putStrLn "Init cron done"
        simpleHTTP' (\f -> runReaderT f st) srvConf $ msum [ dir  "list"   $ path $ listEntity