[commit: ghc] master: Fix the test with -O (5aa9c75)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/5aa9c750c6c3adc47a8e526007254b1f49de1d16/ghc

>---------------------------------------------------------------

commit 5aa9c750c6c3adc47a8e526007254b1f49de1d16
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Dec 7 13:19:01 2016 +0000

    Fix the test with -O
    
    Static string optimisation means we get a ForeignPtr with an IORef
    inside it, leading to a different error.


>---------------------------------------------------------------

5aa9c750c6c3adc47a8e526007254b1f49de1d16
 libraries/compact/tests/compact_pinned.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libraries/compact/tests/compact_pinned.hs b/libraries/compact/tests/compact_pinned.hs
index a2a45bb..39dda61 100644
--- a/libraries/compact/tests/compact_pinned.hs
+++ b/libraries/compact/tests/compact_pinned.hs
@@ -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'])