diff --git a/hbs2-git/reposync/ReposyncMain.hs b/hbs2-git/reposync/ReposyncMain.hs
index afc105cb..e782223f 100644
--- a/hbs2-git/reposync/ReposyncMain.hs
+++ b/hbs2-git/reposync/ReposyncMain.hs
@@ -127,6 +127,8 @@ newState so refLog =
 withConfig :: forall a m . (MonadUnliftIO m) => Maybe FilePath -> ReposyncM m a -> ReposyncM m ()
 withConfig cfg m = do
 
+  debug $ "wtf?"
+
   let defDir  = reposyncDefaultDir
   defConfDir <- liftIO $ getXdgDirectory XdgConfig myName
 
@@ -373,6 +375,8 @@ withApp cfg m = do
 
   waitAnyCatchCancel [c1, messaging, r]
 
+  notice "exiting"
+
   setLoggingOff @DEBUG
   setLoggingOff @INFO
   setLoggingOff @ERROR