projects
/
coq-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
64a5591
)
use the "debug" version of Outputable for ToString in Coq code
author
Adam Megacz
<megacz@cs.berkeley.edu>
Mon, 9 May 2011 06:28:57 +0000
(23:28 -0700)
committer
Adam Megacz
<megacz@cs.berkeley.edu>
Mon, 9 May 2011 06:28:57 +0000
(23:28 -0700)
src/Extraction-prefix.hs
patch
|
blob
|
history
diff --git
a/src/Extraction-prefix.hs
b/src/Extraction-prefix.hs
index
195e6f7
..
7e68ba0
100644
(file)
--- 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 =