diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-01 10:00:47 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-01 10:00:47 +0200 |
| commit | 8a333c9ca8f5020bf13d6509d646bd79fc2099f7 (patch) | |
| tree | af15de511e40d7ccf8444e3fcf3ecfeea4c187ff | |
| parent | d5a7945ba0b082a3be8a7cd4b9142e553dbfec9b (diff) | |
bugfix in showType from the C runtime
| -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 |