Skip to content

GitLab

Commit bb214739 authored by Don Stewart's avatar Don Stewart
Browse files

Add model-based tests for ByteString.Lazy<=>ByteString<=>Data.list

parent 69c82de7
Expand all Hide whitespace changes
Inline Side-by-side
testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring003.hs
View file @ bb214739
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
import System.IO import System.IO
import qualified Data.ByteString as B import qualified Data.ByteString as B
import Data.ByteString (ByteString,unsafeTail,unsafeIndex) import Data.ByteString.Base (ByteString,unsafeTail,unsafeIndex)
import Data.Char -- seems to help! import Data.Char -- seems to help!
#define STRICT2(f) f a b | a `seq` b `seq` False = undefined #define STRICT2(f) f a b | a `seq` b `seq` False = undefined
......
Supports Markdown
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