From d2aec606129da45e686697761c269c8aa41078d8 Mon Sep 17 00:00:00 2001 From: krangelov Date: Thu, 12 Aug 2021 10:38:55 +0200 Subject: [PATCH] fix typos --- src/runtime/haskell/PGF2/FFI.hsc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/runtime/haskell/PGF2/FFI.hsc b/src/runtime/haskell/PGF2/FFI.hsc index 0496bfd10..ae519dcd6 100644 --- a/src/runtime/haskell/PGF2/FFI.hsc +++ b/src/runtime/haskell/PGF2/FFI.hsc @@ -275,7 +275,7 @@ mkUnmarshaller = do bt <- fmap unmarshalBindType ((#peek PgfTypeHypo, bind_type) p_hypo) cid <- (#peek PgfTypeHypo, cid) p_hypo >>= peekText ty <- (#peek PgfTypeHypo, type) p_hypo >>= deRefStablePtr - hs <- peekExprs (n_hypos-1) (p_hypo `plusPtr` (#size PgfTypeHypo)) + hs <- peekHypos (n_hypos-1) (p_hypo `plusPtr` (#size PgfTypeHypo)) return ((bt,cid,ty):hs) peekExprs 0 p_expr = return []