[number] fix compat with a missing do.

This commit is contained in:
Vincent Hanquez 2015-05-11 07:31:52 +01:00
parent ee3e5e69bf
commit 8c07305deb

View File

@ -114,7 +114,7 @@ gmpSizeInBytes _ = GmpUnsupported
gmpExportInteger :: Integer -> Ptr Word8 -> GmpSupported (IO ())
#if __GLASGOW_HASKELL__ >= 710
gmpExportInteger n (Ptr addr) = GmpSupported $
gmpExportInteger n (Ptr addr) = GmpSupported $ do
_ <- exportIntegerToAddr n addr 1#
return ()
#elif MIN_VERSION_integer_gmp(0,5,1)