[CLI] rollback changes when panic occurs

bin/gargantext-cli/CLI/DBFixes.hs

@@ -79,6 +79,7 @@ fixBrokenHyperdata630CLI (DBFixArgs { settings_toml, dry_run }) = do
               -- Check that the hyperdata can be fetched correctly
               newHd <- runPGSQuery c [sql|SELECT hyperdata FROM contexts WHERE id = ?|] (PSQL.Only cId) :: IO [PSQL.Only HyperdataDocument]
               unless (length newHd == 1) $ do
+                PSQL.rollback c
                 panicTrace $ "[" <> show cId <> "] Error! Can't get new hyperdata: " <> show newHd
               putText $ "[" <> show cId <> "] updated correctly"
           ) affectedContexts