msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fix typos

Browse Source
This commit is contained in:
krangelov
2021-08-12 10:38:55 +02:00
parent c482d3466c
commit d2aec60612
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF2/FFI.hsc
View File

@@ -275,7 +275,7 @@ mkUnmarshaller = do
bt <- fmap unmarshalBindType ((#peek PgfTypeHypo, bind_type) p_hypo) bt <- fmap unmarshalBindType ((#peek PgfTypeHypo, bind_type) p_hypo)
cid <- (#peek PgfTypeHypo, cid) p_hypo >>= peekText cid <- (#peek PgfTypeHypo, cid) p_hypo >>= peekText
ty <- (#peek PgfTypeHypo, type) p_hypo >>= deRefStablePtr 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) return ((bt,cid,ty):hs)
peekExprs 0 p_expr = return [] peekExprs 0 p_expr = return []