[#45] Add syncCache function

Resolves #45

src/IW/Sync/Update.hs

@@ -4,20 +4,32 @@ data and insert it into the database.
 -}
 
 module IW.Sync.Update
-       ( syncWithGithub
+       ( syncCache
        ) where
 
 import Control.Monad.IO.Unlift (MonadUnliftIO)
 import UnliftIO.Async (async, mapConcurrently_, wait)
 
-import IW.App (WithError)
+import IW.App (WithError, catchError)
 import IW.Core.Repo (Repo (..))
 import IW.Db (WithDb, upsertRepos, updateRepoCategories, upsertIssues)
 import IW.Effects.Cabal (MonadCabal (..), getCabalCategories)
 import IW.Sync.Search (searchAllHaskellRepos, searchAllHaskellIssues)
 import IW.Time (getToday)
 
 
+syncCache
+    :: forall env m.
+       ( MonadCabal m
+       , MonadUnliftIO m
+       , WithDb env m
+       , WithLog env m
+       , WithError m
+       )
+    => Integer
+    -> m ()
+syncCache interval = forever $ syncWithGithub interval `catchError` undefined
+
 -- | This function synchronizes the database with the latest GitHub data.
 syncWithGithub
     :: forall env m.