@@ -117,7 +117,8 @@ char a c =
117-- directly to iso10646String or string.
117-- directly to iso10646String or string.
119iso10646String :: Attr -> String -> Image
119iso10646String :: Attr -> String -> Image
120−iso10646String a str =
120+iso10646String _ [] = EmptyImage
121+iso10646String a str =
121 let displayWidth = safeWcswidth str
122 let displayWidth = safeWcswidth str
122 in HorizText a (TL.pack str) displayWidth (length str)
123 in HorizText a (TL.pack str) displayWidth (length str)