haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[number] fix compat with a missing do.

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-11 07:31:52 +01:00
parent ee3e5e69bf
commit 8c07305deb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Crypto/Number/Compat.hs
View File

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