<error-model> ( visible-errors model -- model' )


Vocabulary
ui.tools.error-list

Inputs
visible-errorsan object
modelan object


Outputs
model'an object


Definition
USING: assocs kernel models.arrow.smart sequences
source-files.errors ;

IN: ui.tools.error-list

: <error-model> ( visible-errors model -- model' )
[ swap [ [ error-type ] ] dip [ at ] curry compose filter ]
<smart-arrow> ;