DIP

Author: erikd

cardano-chain-gen/test/Test/Cardano/Db/Mock/Unit/Conway/Config/JsonbInSchema.hs

@@ -1,3 +1,4 @@
+{-# LaNGUAge BangPatterns #-}
 {-# LANGUAGE NumericUnderscores #-}
 {-# LANGUAGE OverloadedStrings #-}
 
@@ -35,7 +36,7 @@ configRemoveJsonbFromSchemaEnabled = do
       False
       "There should be no jsonb data types in database if option is enabled"
     Trace.traceM "configRemoveJsonbFromSchemaEnabled: D"
-    force <$> checkStillRuns dbSync
+    !_ <- force <$> checkStillRuns dbSync
     Trace.traceM "configRemoveJsonbFromSchemaEnabled: End"
   where
     args = initCommandLineArgs {claFullMode = False}