Fix the test with -O
authorSimon Marlow <marlowsd@gmail.com>
Wed, 7 Dec 2016 13:19:01 +0000 (13:19 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 7 Dec 2016 13:19:01 +0000 (13:19 +0000)
Static string optimisation means we get a ForeignPtr with an IORef
inside it, leading to a different error.

libraries/compact/tests/compact_pinned.hs

index a2a45bb..39dda61 100644 (file)
@@ -3,4 +3,4 @@ import Control.Exception
 import qualified Data.ByteString.Char8 as B
 import Data.Compact
 
-main = compact (B.pack "abc")
+main = compact (B.pack ['a'..'c'])