@@ -400,7 +400,7 @@ viewRemove toChars (Widths nameWidth leftWidth _) name old =
401viewName :: Int -> Pkg.Name -> D.Doc
401viewName :: Int -> Pkg.Name -> D.Doc
402viewName width name =
402viewName width name =
403− D.fill (width + 3) (D.fromUtf8 (Pkg.toString name))
403+ D.fill (width + 3) (D.fromPackage name)
406pad :: Int -> String -> D.Doc
406pad :: Int -> String -> D.Doc