printName :: Name -> Text
printName name = printed where
  printed = case nameModule_maybe name of
    Nothing -> fastStringToText $ occNameFS (nameOccName name)
    Just mod -> moduleText mod <> "." <> fastStringToText (occNameFS (nameOccName name))

-- | Convert a GHC FastString to a Text. There should be a fast way to
-- convert these.
printName :: Name -> Text
printName name = printed where
  printed = case nameModule_maybe name of
    Nothing -> fastStringToText $ occNameFS (nameOccName name)
    Just mod -> moduleText mod <> "." <> fastStringToText (occNameFS (nameOccName name))

-- | Convert a GHC FastString to a Text. There should be a fast way to
-- convert these.
printName name = printed where
  printed = case nameModule_maybe name of
    Nothing -> fastStringToText $ occNameFS (nameOccName name)
    Just mod -> moduleText mod <> "." <> fastStringToText (occNameFS (nameOccName name))

-- | Convert a GHC FastString to a Text. There should be a fast way to
-- convert these.