fix typo

2022-01-09 08:24:41 +01:00
parent f5435dba38
commit 262e44c208
1 changed files with 1 additions and 1 deletions
--- a/src/runtime/haskell/PGF2.hsc
+++ b/src/runtime/haskell/PGF2.hsc
@@ -673,7 +673,7 @@ tabularLinearize c e =
  withForeignPtr marshaller $ \m ->
  bracket (withPgfExn "tabularLinearize" (pgf_tabular_linearize (c_db c) c_revision c_e nullPtr m)) free $ \c_texts -> do
    if c_texts == nullPtr
-      then []
+      then return []
      else peekTable c_texts
  where
    peekTable c_texts = do