visualizeLinkRange :: LinkRange -> Text
visualizeLinkRange r =
  let m = 80
      pt = r ^. linkPercentage m
  in "[" <> (replicate pt '=') <> replicate (m - pt) ' ' <> "] " <> pack (show (r ^. linkThis)) <> "/" <> pack (show (r ^. linksTotal))
visualizeLinkRange :: LinkRange -> Text
visualizeLinkRange r =
  let m = 80
      pt = r ^. linkPercentage m
  in "[" <> (replicate pt '=') <> replicate (m - pt) ' ' <> "] " <> pack (show (r ^. linkThis)) <> "/" <> pack (show (r ^. linksTotal))
visualizeLinkRange r =
  let m = 80
      pt = r ^. linkPercentage m
  in "[" <> (replicate pt '=') <> replicate (m - pt) ' ' <> "] " <> pack (show (r ^. linkThis)) <> "/" <> pack (show (r ^. linksTotal))