headStyle :: hasStyle c => c -> c