displayPlates (Plates ps) = dPlates ps
  where
    dPlates :: [Plate] -> Text
    dPlates = mconcat . intersperse "," . fmap dPlate

    dPlate :: Plate -> Text
    dPlate (TooLight) = "less than a bar"
    dPlate (P45  n) = "45x"  <> show n
    dPlate (P25  n) = "25x"  <> show n
    dPlate (P10  n) = "10x"  <> show n
    dPlate (P5   n) = "5x"   <> show n
    dPlate (P2p5 n) = "2.5x" <> show n
displayPlates (Plates ps) = dPlates ps
  where
    dPlates :: [Plate] -> Text
    dPlates = mconcat . intersperse "," . fmap dPlate

    dPlate :: Plate -> Text
    dPlate (TooLight) = "less than a bar"
    dPlate (P45  n) = "45x"  <> show n
    dPlate (P25  n) = "25x"  <> show n
    dPlate (P10  n) = "10x"  <> show n
    dPlate (P5   n) = "5x"   <> show n
    dPlate (P2p5 n) = "2.5x" <> show n
displayPlates (Plates ps) = dPlates ps
  where
    dPlates :: [Plate] -> Text
    dPlates = mconcat . intersperse "," . fmap dPlate

    dPlate :: Plate -> Text
    dPlate (TooLight) = "less than a bar"
    dPlate (P45  n) = "45x"  <> show n
    dPlate (P25  n) = "25x"  <> show n
    dPlate (P10  n) = "10x"  <> show n
    dPlate (P5   n) = "5x"   <> show n
    dPlate (P2p5 n) = "2.5x" <> show n