My own first idea was actually similar to yours, although I wrote:

  map (head &&& length) . group

(Also, it took me only a few seconds, because it just seemed obvious to me, even though Haskell is not the programming language I normally use for my projects, but it seems the right thing for this.)