$maybe flag <- sortableKey $case directions $of [SortAsc] "-desc")}> ^{widget} $of _ "-asc")}> ^{widget} $nothing ^{widget}