src/HOL/Tools/Nitpick/nitpick_scope.ML
changeset 80866 8c67b14fdd48
parent 79799 2746dfc9ceae
--- a/src/HOL/Tools/Nitpick/nitpick_scope.ML	Wed Sep 11 23:07:18 2024 +0200
+++ b/src/HOL/Tools/Nitpick/nitpick_scope.ML	Wed Sep 11 23:26:25 2024 +0200
@@ -198,8 +198,8 @@
 
 fun multiline_string_for_scope scope =
   let
-    val code_type = Print_Mode.setmp [] o Syntax.string_of_typ o Config.put show_markup false;
-    val code_term = Print_Mode.setmp [] o Syntax.string_of_term o Config.put show_markup false;
+    val code_type = Pretty.pure_string_of oo Syntax.pretty_typ o Config.put show_markup false;
+    val code_term = Pretty.pure_string_of oo Syntax.pretty_term o Config.put show_markup false;
     val (primary_cards, secondary_cards, maxes, iters, miscs) =
       quintuple_for_scope code_type code_term I scope
     val cards = primary_cards @ secondary_cards