diff options
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/Type.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
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 |