toLazyText (fromString s) = fromChunks [S.pack s]
>>> fromString "\55555" "\65533"
>>> fromString [] ""
>>> fromString ['a','b','c'] "abc"
>>> fromString ['\55295','\55296','\57343','\57344'] -- U+D7FF U+D800 U+DFFF U+E000 "\55295\65533\65533\57344"Note: This function is total because it replaces the (invalid) code-points U+D800 through U+DFFF with the replacement character U+FFFD.