Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

Ignore-this: 670e96e3a726c9de091eb8547b486e13

darcs-hash:20110818092440-62b54-9578e5e44d0d3794b88f15e5e321c861d8e99815.gz
  • Loading branch information...
commit 3045d38d09ebbe1b8978e739762aa8ea230c50e7 1 parent 38ad559
PHO phonohawk authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 OpenSSL/BN.hsc
4 OpenSSL/BN.hsc
View
@@ -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 ->
Please sign in to comment.
Something went wrong with that request. Please try again.