stripPartiallyEaten :: T.Text -> T.Text
stripPartiallyEaten txt =
  if T.isInfixOf "partially eaten " txt
    then T.drop 16 txt
    else txt
stripPartiallyEaten :: T.Text -> T.Text
stripPartiallyEaten txt =
  if T.isInfixOf "partially eaten " txt
    then T.drop 16 txt
    else txt
stripPartiallyEaten txt =
  if T.isInfixOf "partially eaten " txt
    then T.drop 16 txt
    else txt