testsuite/tests/codeGen/should_run/T12855.hs


1
2
3
4
5
6
7
8

{- # OPTIONS_GHC -Wall -Werror #-}
module Main (main) where

import qualified Data.ByteString as S
import qualified Data.ByteString.Char8 as S8

main :: IO ()
main = (S8.concat (map S.singleton (S.unpack (S8.pack "<foo>"))) == S8.empty) `seq` return ()