Singpolyma

Luckily, you can do this without needing an extension at all!

t = fromString :: String -> Text
s = id

t"hello"
s"hello"