$maybe flag <- sortableKey $case directions $of [SortAsc] ^{widget} $of _ ^{widget} $nothing ^{widget}