make ppEqCWithProv usable by the Pretty instance

When debugging larger datatypes that contain deep instances of `EqC`s,
it's much more convenient to be able to change the `Pretty`.

src/Reopt/TypeInference/Solver/Constraints.hs

@@ -37,14 +37,18 @@ prettySExp docs = PP.group $ PP.encloseSep "(" ")" " " docs
 -- output relatively compact. Use 'ppEqCWithProv' if you want to include
 -- 'eqProv'.
 instance PP.Pretty EqC where
-  pretty (EqC l r _prov) = prettySExp [PP.pretty l, "=", PP.pretty r]
+  pretty = ppEqCWithoutProv
+  -- pretty = ppEqCWithProv
 
 -- | Pretty-print an 'EqC', including its provenance.
+ppEqCWithoutProv :: EqC -> PP.Doc ann
+ppEqCWithoutProv (EqC l r _) = prettySExp [PP.pretty l, "=", PP.pretty r]
+
 ppEqCWithProv :: EqC -> PP.Doc ann
 ppEqCWithProv eqC =
   PP.align $
     PP.vsep
-      [ PP.pretty eqC
+      [ ppEqCWithoutProv eqC
       , PP.hang 2 $ "Provenance: " <> PP.pretty (eqProv eqC)
       ]