@@ -284,8 +284,8 @@ ppTopElement = ("<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" ++) . unEntity .
284 let (ds,ys) = break (==';') xs
284 let (ds,ys) = break (==';') xs
285 rest = drop 1 ys
285 rest = drop 1 ys
286 in case reads ('\'':'\\':ds ++ "'") of
286 in case reads ('\'':'\\':ds ++ "'") of
287− ((x,_):_) | x > '\127' -> x : unEntity rest
287+ ((x,_):_) -> x : unEntity rest
288− _ -> ('&':'#':ds) ++ ";" ++ unEntity rest
288+ _ -> '&':'#':unEntity xs
289 unEntity (x:xs) = x : unEntity xs
289 unEntity (x:xs) = x : unEntity xs
291imageTypeOf :: FilePath -> Maybe String
291imageTypeOf :: FilePath -> Maybe String