isEdible :: T.Text -> Bool
isEdible name = isEdible' (stripPartiallyEaten $ T.strip $ T.toLower name)
isEdible :: T.Text -> Bool
isEdible name = isEdible' (stripPartiallyEaten $ T.strip $ T.toLower name)
isEdible name = isEdible' (stripPartiallyEaten $ T.strip $ T.toLower name)