From 8a333c9ca8f5020bf13d6509d646bd79fc2099f7 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Fri, 1 Sep 2017 10:00:47 +0200 Subject: [PATCH] bugfix in showType from the C runtime --- src/runtime/haskell-bind/PGF2/Type.hsc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/runtime/haskell-bind/PGF2/Type.hsc b/src/runtime/haskell-bind/PGF2/Type.hsc index 7b4560abe..ada2b5e03 100644 --- a/src/runtime/haskell-bind/PGF2/Type.hsc +++ b/src/runtime/haskell-bind/PGF2/Type.hsc @@ -50,7 +50,7 @@ showType scope (Type ty touch) = do (sb,out) <- newOut tmpPl printCtxt <- newPrintCtxt scope tmpPl exn <- gu_new_exn tmpPl - pgf_print_type ty printCtxt 1 out exn + pgf_print_type ty printCtxt 0 out exn touch s <- gu_string_buf_freeze sb tmpPl peekUtf8CString s