Commit 5aa9c750 authored by Simon Marlow's avatar Simon Marlow

Fix the test with -O

Static string optimisation means we get a ForeignPtr with an IORef
inside it, leading to a different error.
parent c02aeb5c
......@@ -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'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment