torGroup :: RefHistory -> RefKey -> Bool
hasDistractorGroup st k =
    not . null $ distractorGroups st k

-- | @di
hasDistractorGroup :: RefHistory -> RefKey -> Bool
hasDistractorGroup st k =
    not . null $ distractorGroups st k
hasDistractorGroup st k =
    not . null $ distractorGroups st k