Browse files

Suppress warnings for OpenSSL.BN's meaningless {-# UNPACK #-} pragma.

Ignore-this: 670e96e3a726c9de091eb8547b486e13

darcs-hash:20110818092440-62b54-9578e5e44d0d3794b88f15e5e321c861d8e99815.gz
  • Loading branch information...
1 parent 38ad559 commit 3045d38d09ebbe1b8978e739762aa8ea230c50e7 @phonohawk phonohawk committed Aug 18, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 OpenSSL/BN.hsc
View
4 OpenSSL/BN.hsc
@@ -153,8 +153,8 @@ foreign import ccall unsafe "memcpy"
_copy_out :: Ptr () -> ByteArray## -> CSize -> IO ()
-- These are taken from Data.Binary's disabled fast Integer support
-data ByteArray = BA {-# UNPACK #-} !ByteArray##
-data MBA = MBA {-# UNPACK #-} !(MutableByteArray## RealWorld)
+data ByteArray = BA !ByteArray##
+data MBA = MBA !(MutableByteArray## RealWorld)
newByteArray :: Int## -> IO MBA
newByteArray sz = IO $ \s ->

0 comments on commit 3045d38

Please sign in to comment.