Refactor how automatic annotations are read
This commit is contained in:
parent
4514d0f120
commit
9da29e683a
3 changed files with 12 additions and 6 deletions
4
src/Annotator/Util.hs
Normal file
4
src/Annotator/Util.hs
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
module Annotator.Util where
|
||||
|
||||
anyp :: [a -> Bool] -> a -> Bool
|
||||
anyp preds x = or (map ($ x) preds)
|
||||
Loading…
Add table
Add a link
Reference in a new issue