prettyMethod :: (Name, ImportMethod) -> Doc
prettyMethod import' =
    case import' of
      ([name], As alias)
          | name == alias -> P.empty

      (_, As alias) -> P.text "as" <+> P.text alias

      (_, Open listing) -> pretty listing
prettyMethod :: (Name, ImportMethod) -> Doc
prettyMethod import' =
    case import' of
      ([name], As alias)
          | name == alias -> P.empty

      (_, As alias) -> P.text "as" <+> P.text alias

      (_, Open listing) -> pretty listing
prettyMethod import' =
    case import' of
      ([name], As alias)
          | name == alias -> P.empty

      (_, As alias) -> P.text "as" <+> P.text alias

      (_, Open listing) -> pretty listing