fix the type signature for exprSize

This commit is contained in:
Krasimir Angelov
2017-09-05 10:08:55 +02:00
parent 30b7ba04c7
commit 5ed0e3ae7f

View File

@@ -331,7 +331,7 @@ exprHash h (Expr c_expr touch1) =
touch1
return (fromIntegral h)
exprSize :: Expr -> Int32
exprSize :: Expr -> Int
exprSize (Expr c_expr touch1) =
unsafePerformIO $ do
size <- pgf_expr_size c_expr