linkPercentage :: Int -> Getter LinkRange Int
linkPercentage m = to (\lr -> lr ^. linkThis * m `div` lr ^. linksTotal)
linkPercentage :: Int -> Getter LinkRange Int
linkPercentage m = to (\lr -> lr ^. linkThis * m `div` lr ^. linksTotal)
linkPercentage m = to (\lr -> lr ^. linkThis * m `div` lr ^. linksTotal)