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.