simplify types

2021-11-09 08:08:14 +01:00
parent 1aacc34deb
commit 02a84b12da
2 changed files with 43 additions and 44 deletions
--- a/src/runtime/haskell/PGF2/Transactions.hsc
+++ b/src/runtime/haskell/PGF2/Transactions.hsc
@@ -33,7 +33,7 @@ import Control.Exception
 #include <pgf/pgf.h>

 newtype Transaction k a =
-  Transaction (Ptr PgfDB -> Ptr (PgfRevision k) -> Ptr PgfExn -> IO a)
+  Transaction (Ptr PgfDB -> Ptr k -> Ptr PgfExn -> IO a)

 instance Functor (Transaction k) where
  fmap f (Transaction g) = Transaction $ \c_db c_revision c_exn -> do