CSE not working for top-level literal strings
Consider
{-# LANGUAGE MagicHash #-}
module S( z ) where
import GHC.Exts
data T = MkT Addr#
x = MkT "foo"#
y = MkT "foo"#
z = (x,y)
You'd expect those literal strings to get CSE'd but currently they are not.