How to implement unsafePartsOf using lens

Question

I\'m trying to implement a simple version of unsafePartsOf with the specialized signature:

unsafePartsOf :: Traversal s t a b -> Lens s t [a]