diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2016-12-07 13:19:01 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2016-12-07 13:19:01 +0000 |
| commit | 5aa9c750c6c3adc47a8e526007254b1f49de1d16 (patch) | |
| tree | 9939613aba7b2f7e8e84f9cb34a7d2b58a541c57 | |
| parent | c02aeb5cf73669796e262a481b6dc933ee88c390 (diff) | |
| download | haskell-5aa9c750c6c3adc47a8e526007254b1f49de1d16.tar.gz | |
Fix the test with -O
Static string optimisation means we get a ForeignPtr with an IORef
inside it, leading to a different error.
| -rw-r--r-- | libraries/compact/tests/compact_pinned.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/compact/tests/compact_pinned.hs b/libraries/compact/tests/compact_pinned.hs index a2a45bb7b9..39dda61cd7 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']) |