From 2f503f719116c08f11178e46c3aecfa09d974a82 Mon Sep 17 00:00:00 2001 From: Adam Megacz Date: Sun, 8 May 2011 23:28:57 -0700 Subject: [PATCH] use the "debug" version of Outputable for ToString in Coq code --- src/Extraction-prefix.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Extraction-prefix.hs b/src/Extraction-prefix.hs index 195e6f7..7e68ba0 100644 --- a/src/Extraction-prefix.hs +++ b/src/Extraction-prefix.hs @@ -113,7 +113,7 @@ coreKindToKind k = else Prelude.error ((Prelude.++) "coreKindToKind got an unknown kind: " (Outputable.showSDoc (Outputable.ppr k))) outputableToString :: Outputable.Outputable a => a -> Prelude.String -outputableToString = (\x -> Outputable.showSDoc (Outputable.ppr x)) +outputableToString = (\x -> Outputable.showSDocDebug (Outputable.ppr x)) coreViewDeep :: Type.Type -> Type.Type coreViewDeep t = -- 1.7.10.4