Update faculties on launch
commit2dc9cf257fead0fcaaecf74c0534f0b0c6c50921
authoriko <ilyakooo0@gmail.com>
dateTue 14 May 2019, 11:18 (7 years ago)
parent722f057
denis/src/Server/Server.hs+1
@@ -63,6 +63,7 @@ runServer :: IO ()
6363runServer = do
6464 port <- getServerPort
6565 cfg <- getConfig
66+ updateFaculties cfg
6667 _ <- periodically (1 * hours) $ updateFaculties cfg
6768 _ <- periodically (20 * minutes) $ runDbTask cfg pruneAuth
6869 let ctx = genAuthServerContext $ getPool cfg